


__A Microsoft tem 120 programas em fitas e disquetes à sua disposição 
_ _ São sistemas aplicativos para acompanhar e agilizar os negócios 
_ d e sua empresa. E também jogos eletrônicos para você e sua família- 

se divertirem muito. Todos especiais para TK-83, TK-85; - 

" "TffítOOO, Appíelé compatíveis. E todos com a mesma qualidade- - 

1 ; - • dós 100.000 programas já vendidos em todo o Brasil: - 

’ “Procure o revendedor Microsoft ma» próximo (se não encontrar os - 
•programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000? 
pS. Paujo-SP). Você encontrará os melhores programas da sua vidaJ 
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TK 90X: 

o computador mundial 


0 novo equipamento da Microdigital está sendo visto por seus diretores 
e por toda a equipe técnica responsável por seu desenvolvimento, como a 
máquina perfeita, desenvolvida com o intuito de atender todas as necessida¬ 
des dos usuários de computadores pessoais. 

A prova deste posicionamento é a convicta idéia notada em todos os 
depoimentos emitidos pelos representantes da empresa, de que o TK 90X é o 
computador que irá concorrer diretamente com o seu similar inglês — o 
ZX-Spectrum Plus, com superior tecnologia e que se tornará o produto mun¬ 
dial da Microdigital. 

Esta visão é bastante reforçada pela ideologia comercial que rege todos 
os negócios da empresa. Ricardo Tondowski, assessor da presidência, for¬ 
neceu-nos todas as informações acerca da política comercial adotada para o 
novo produto, a história de seu desenvolvimento, o investimento aplicado e 
perspectivas futuras. 


Microhobby — Como surgiu o TK 90X 
Color Computer? 

Ricardo — Há aproximadamente 
dois anos, a Microdigital sentiu a neces¬ 
sidade de desenvolver um computador 
de alta-tecnologia e de baixo custo que 
tivesse ainda, longa duração, fornecen¬ 
do ao usuário um equipamento com um 
período de vida de cinco anos. Daí sur¬ 
giu o TK 90X, compatível em hardware e 
software com o computador mais co¬ 
nhecido no mundo: o ZX-Spectrum. 

Para que isto fosse possível tivemos 
que trabalhar, arduamente nos laborató¬ 
rios da Microdigital para poder oferecer 
um computador de grande desempe¬ 
nho, mas de pequeno tamanho físico, 
barateando, desta forma, o custo do 
produto final ao consumidor. Durante 
esta etapa de desenvolvimento foram 
feitos diversos avanços em relação aos 
produtos fabricados no Exterior como, 
por exemplo, a transmissão de som pela 
TV, já usado no TK 2000; acentuação 
gráfica para as línguas portuguesa e 
espanhola. 

Microhobby — Qual o investimento 
aplicado no desenvolvimento deste pro¬ 
duto? 

Ricardo — No decorrer destes dois 
anos foram aplicados Cr$ 2,5 bilhões. 
Estamos considerando o TK 90X como o 
TK-mundial. Nós nos orgulhamos muito 
desta máquina, principalmente por ela 
ter sido desenvolvida por engenheiros 
brasileiros. O que a tornou viável foi o 
apoio dado pela reserva de mercado, 
aos fabricantes nacionais. 



Microhobby — Qual a expectativa 
existente no mercado para este tipo de 
equipamento? 

Ricardo — Criou-se uma expectati¬ 
va principalmente pelo fato do produto 
possuir uma grande variedade de soft¬ 
ware e periféricos no mercado interna¬ 
cional. E por ele representar um grande 
avanço tecnológico, com uma relação 
entre custo/benefício realmente atraen¬ 
te para o usuário. Além do mais existe o 
grande sucesso mundial alcançado pelo 
similar inglês com oito milhões de equi¬ 
pamentos vendidos em diversos países, 
sendo utilizados em cerca de 28 mil es¬ 
colas somente na Inglaterra. 

Microhobby — Qual a perspectiva 
de vendas existente? 


Ricardo — Eu acredito que, a partir 
de seu lançamento, o TK 90X será o lí¬ 
der dos computadores pessoais no Bra¬ 
sil, assim como foi o TK 85. Pretende¬ 
mos conquistar, até o final do ano de 86, 
cerca de 200 mil novos usuários deste 
produto, não incluindo escolas privadas 
e públicas (com participação de aproxi¬ 
madamente 15%) que serão as grandes 
usuárias deste equipamento. 

Microhobby — Quais as áreas que 
se pretende atingir com a nova má¬ 
quina? 

Ricardo — O mercado consumidor 
deste equipamento é bem diverso. Ele 
consiste das áreas educacional, peque¬ 
nos negócios e lazer, além de áreas téc¬ 
nicas como Engenharia, entre outras. 
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Microhobby — Qual o apoio a ser 
dado ao usuário? 

Ricardo — Na área de software co¬ 
locaremos inicialmente no mercado 200 
programas em fita cassete para as mais 
diversas aplicações, além dos mais de 
cinco mil disponíveis no mercado inter¬ 
nacional. Serão lançadas ainda algu¬ 
mas publicações em Português, abran¬ 
gendo diversos assuntos como por 
exemplo Linguagem BASIC, Assembly, 
etc. Posteriormente será lançado livro 
sobre o software da máquina. Um des¬ 
tes livros falará sobre o LOGO do TKs 
90, que se volta principalmente a apli¬ 
cações na área didático-pedagógica. 

Com relação aos periféricos, a Mi- 
crodigital terá, dentro dos primeiros 60 
dias, após o seu lançamento, expan¬ 
sões de memória de 32 k, joystick, in¬ 
terface paralela, lightpen, mother- 
board-RS 232, além do gravador de 
EPROM. Outros periféricos serão lança¬ 
dos a partir de setembro até o final do 
ano. A grande expectativa existente é 
quanto ao pacote que está sendo desen¬ 
volvido para o Cirandão e que permite 
ao usuário acessar o serviço a um baixo 
custo. Neste pacote o usuário poderá 
receber o modem juntamente com o 
software específico em fita cassete. 

A Microdigital lançará também, jun¬ 
to com o equipamento, dezenas de ou¬ 
tros acessórios que serão fabricados por 
pequenas empresas de informática. 

Além destes periféricos, tenho co¬ 
nhecimento que existem mais de uma 
centena de periféricos disponíveis no 
mercado mundial, compatíveis com o 
TK 90X. Entre estes estão o micro-dri- 
ve, wafadrive, drives 3", 3,5" e 5 1/4". 
Além dos sistemas CP/M e periféricos 
para comando do robôs. 

Microhobby — Qual rede de dis¬ 
tribuição existente para a colocação do 
TK90X no mercado? 

Ricardo — No Brasil existem apro¬ 
ximadamente 2.000 pontos de vendas e 
na Argentina, que é o nosso segundo 
maior mercado, temos aproximadamen¬ 
te 550 pontos comercializando o pro¬ 
duto. 

Microhobby — Quais as expectati¬ 
vas da Microdigital com relação ao mer¬ 
cado internacional? 

Ricardo — Ê certo que iremos con¬ 
correr diretamente com o similar inglês 
no mercado mundial. Atualmente a Mi¬ 
crodigital detém 60% do mercado nacio¬ 
nal de computadores pessoais com os 
micros TK-85 e TK-2000. O lançamento 
do TK 90X na ExpoUsuária em Buenos 
Aires, na Argentina, foi muito gratifican- 
te. Começamos bem com o lote de 2 mil 
equipamentos colocados nos diversos 
pontos de vendas deste país. O princi¬ 
pal objetivo da empresa é atingir, com o 



TK 90X, todos os países da América La¬ 
tina e em seguida os de língua inglesa. 

O TK 90X funciona no sistema PAL 
além dos sistemas NTSC e SECAM, o 
que o torna um produto altamente 
competitivo. Isto o torna um dos 
computadores de melhor relação custo/ 
benefício do mundo. Estas característi¬ 
cas já têm gerado propostas de impor¬ 
tação de 18 países. O que permite pre¬ 
ver uma exportação para este ano de 
US$ 9,5 milhões. 

Microhobby — Você falou em con¬ 
correr diretamente com o ZX-Spectrum. 
Neste caso parece-me que há necessi¬ 
dade de uma política de exportação bas¬ 
tante forte. Qual será a base de atuação 
da Microdigital nesta área? 

Ricardo — A Microdigital já possui 
base bastante sólida para alcançar seus 
objetivos. Internamente possuímos um 
departamento de Exportação que vem 
atuando a nível mundial para atingir di¬ 
versos países com os nossos produtos. 
Nossa intenção tem sido a de oferecer 
aos governos do mundo inteiro a nossa 
tecnologia, através do contato com re¬ 
des de distribuição de cada País. Um 
exemplo disto são os contratos em ne¬ 
gociação com a China, onde realizamos 
duas Feiras com grande sucesso. 

Com relação ao TK 90X estamos 
trabalhando junto ao Ministério da Edu¬ 
cação Argentino, em um programa que 
pretende introduzir o micro na rede ofi¬ 
cial de ensaio. Estamos em conversa¬ 
ções com o Governo argentino com o 
intuito de oferecer-lhe os maiores bene¬ 
fícios possíveis. O que animou muito os 
representantes do Ministério foi a tec¬ 
nologia avançada do equipamento e os 
milhares de software e periféricos dis¬ 
poníveis, como também farta literatura, 
voltados à área educacional. 


Usuário TK 2000 e 
o "Home Banking" 

Usuários do TK-2000 imaginem esta 
cena! Você em sua casa recebe o extra¬ 
to de sua conta bancária e, ao conferí-lo 
nota que o saldo constante nele não ba¬ 
te com o de seu talão de cheques. O que 
fazer? È simples. Basta voltar-se para o 
seu micro, digitar alguns códigos e logo 
aparecerá na tela de seu vídeo, as infor¬ 
mações acerca dos últimos lançamen¬ 
tos efetuados em sua conta-corrente. 

Esta é uma realidade que começa a 
se configurar para os usuários desta li¬ 
nha de microcomputadores. A Microdi¬ 
gital, segundo Ricardo Tondowski, as¬ 
sessor da presidência, entra na era da 
automação bancária pela "via indireta", 
ou seja, atingindo o correntista em sua 
residência. 

O projeto "Home Banking" vem 
sendo desenvolvido em experiência-pi- 
loto atualmente no Exterior, especifica¬ 
mente com usuários do Banco da Vene¬ 
zuela, em Caracas. 

"E uma nova fase que estamos ini¬ 
ciando. Até agosto próximo estaremos 
fornecendo ao Banco, cerca de cinco 
mil microcomputadores TK-2000 que se¬ 
rão instalados nas casas dos clientes 
preferenciais da instituição financeira", 
ilustrou Ricardo. 

A concretização deste tipo de ser¬ 
viço para o usuário só será possível atra¬ 
vés do desenvolvimento e posterior for- 
' necimento de interfaces e modems que 
permitam acessar os computadores do 
Banco, além do software. Atualmente, 
conforme ressaltou Tondowski, está 
acertado a entrega de cinco mil modems 
ao Banco, mas não se definiu ainda 
quem será o fornecedor, uma vez que a 
Microdigital ainda não fabrica este peri¬ 
férico. 

De acordo com Tondowski, a em¬ 
presa tem recebido propostas de bancos 
brasileiros interessados na instalação do 
"Home Banking" aos seus clientes. 
"Atualmente, estamos no aguardo de 
mais propostas para que possamos ins¬ 
talar, a título experimental, uma adapta¬ 
ção do sistema à realidade brasileira", 
concluiu. A.L.A. 
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TK 90X e as unidades de armazenamento 


programas que se utilizam de gráficos; 
em demonstrações didáticas ou ainda 
para a criação de caracteres de outras 
línguas. 

Outro aspecto que merece ser res¬ 
saltado é a possibilidade do TK 90X ser 
capaz de rodar outras linguagens como 
LOGO, PASCAL, FORTH, e BASIC 
compilado (além do BASIC e Assembly 
Z-80), encontradas apenas em máquinas w 
de maior porte. Estas linguagens esta- § 
rão disponíveis em fita. A primeira de- ig 
las, a ser lançada em breve pela Micro- u> 
soft, é a linguagem LOGO, destinada à § 
aplicação na área educacional. 

Buscando atender às necessidades ig 
dos usuários, o produto foi projetado d 
para ser o mais completo possível. Des- o 
ta forma foram incluídas as instruções g- 
READ-DATA-RESTORE e a instrução l - 
DEF FN, presentes em micros de maior ' 
porte. As três primeiras permitem que se e? 
coloquem dados em linhas de progra- - 1 
mas, possibilitando o fácil acesso a da¬ 
dos pré-programados. A última permite 
ao usuário definir funções sem grandes 
complicações. 

O EASYLOAD 

0 uso de gravador está para o usuá¬ 
rio de micros pessoais assim como o giz 
está para o professor. Porém, a maneira 
de se operar com os dois geralmente 
traz alguns problemas para o usuário, na 
hora de passar o programa da memória 
para a fita cassete ou vice-versa. Para 
sanar estes problemas o TK 90X tem um 
sistema especial de gravação de progra¬ 
mas denominado EASY LOAD. 

O EASY LOAD é um sistema flexí¬ 
vel, quase independente do controle de 
volume. Possui um "feed-back" visual 
que indica a operação de carga, mos¬ 
trando o nome do programa e, na mar¬ 
gem da tela, faixas coloridas que se al¬ 
ternam, possibilitando ao usuário a vi¬ 
sualização do que está acontecendo. 

Outra característica do EASY 
LOAD é o número de comandos traba¬ 
lhando com gravador, maior que em ou - 
tros computadores do mesmo porte. 
Além de gravar e carregar programas 
pode-se ler dados e telas, com coman¬ 
dos específicos para cada uma destas 
funções. 

Cores, alta-resolução e som 

Completando o leque de cores bá¬ 
sicas, disponíveis também em alta-reso¬ 
lução gráfica, a nova máquina fornece 
ao usuário a possibilidade de realizar pro¬ 


gramas com bons efeitos visuais. Pode- 
se escolher a cor do fundo e da borda da 
tela, bem como a cor dos caracteres que 
serão exibidos. Existe ainda a possibili¬ 
dade de escolher entre duas tonalida¬ 
des, claro e escuro, com o uso do co¬ 
mando BRIGHT. Há também os coman¬ 
dos FLASH (possibilita que as informa¬ 
ções sejam destacadas na tela, através 
do "pisca-pisca") e o INVERSE (possi¬ 
bilita a inversão da cor do fundo com a 
cor do caractere). 

As figuras em alta-resolução po¬ 
dem ser feitas de várias maneiras, entre 
eles pela definição de caracteres (co¬ 
mando UDG) ou pelo uso de funções 
especialmente disponíveis como PLOT, 
DRAW, CIRCLE, OVER, entre outras. 

Para gerar som, o TK 90X possui 
um sintetizador de 10 oitavas (com 130 
semitons) controlado por software, que 
pode ser acessado diretamente pelo 
BASIC. A saída de som é feita pelo alto- 
falante da TV, o que permite o controle 
de volume por parte do usuário. 

O Arco-íris 

O Arco-Íris além de ser o símbolo 
visual do equipamento é também o no¬ 
me do programa da fita que o acompa¬ 
nha. Segundo Paulo Lauand, foi desen¬ 
volvida com o objetivo de oferecer, num 
primeiro contato entre o usuário e o 
micro, grande apoio em termos de 
aprendizado. 

Na fita existem módulos que possi¬ 


bilitam aprender a trabalhar com o te¬ 
clado. O programa funciona como um 
professor que inicializa o aluno na 
operação do seu micro. Em quatro li¬ 
ções os usuários já estarão aptos a usa¬ 
rem o TK90X. 

A colocação de programas do gê¬ 
nero tutorial na embalagem dos micro¬ 
computadores é, conforme ressaltou 
Lauand, uma tendência que vem sendo 
desenvolvida pelos fabricantes dos prin¬ 
cipais computadores pessoais no Exte¬ 
rior. Não existia até agora, no Brasil, ne¬ 
nhum computador com esta caracterís¬ 
tica. 
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TK 90X: 

alta tecnologia para o usuário 



"0 grande mérito do novo 
micro é a grande quantidade 
de periféricos disponíveis 
no mundo todo". 


Um computador pequeno, com 
preço acessível, cores, som e alta-reso- 
lução gráfica. Além disso, com uma sé¬ 
rie de funções especiais, caracteres em 
português, facilidade de operação e de 
gravação de dados e programas. 

Este é o TK 90X, computador que a 
Microdigital, após dois anos de desen¬ 
volvimento, está colocando no mercado 
brasileiro. 

Compatível com o AX Spectrum 
+, um dos computadores mais conhe¬ 
cidos do mundo, o TK 90X é uma má¬ 
quina de alta tecnologia, com imensa 
quantidade de software disponível. Pro¬ 
jetado para operar baseado em micro¬ 
processador Z-80, auxiliado por um chip 
dedicado a vídeo, apresenta grande con¬ 
fiabilidade e garante um alto desempe¬ 
nho. 

Para Paulo Lauand, diretor técnico 
da empresa, o mérito principal do novo 
computador é a quantidade de software 
e periféricos disponíveis no mundo to¬ 
do. Além do que se tem disponível no 
exterior, a Microsoft e a Supersoft es¬ 
tão lançando cerca de 200 programas e a 
Microdigital está desenvolvendo vários 
periféricos. 

A máquina aceita diversos equipa¬ 
mentos auxiliares, dentre os quais a em¬ 


presa destaca a interface para impresso¬ 
ra paralela, Wafa-drive e microdrive, a 
expansão de 32 k (que expande a me¬ 
mória do micro de 16 k para 48 k), a in¬ 
terface RS-232 C juntamente com o mo¬ 
dem e o joystick (sendo que o micro 
possui interface incorporada). 

O diretor citou outros periféricos 
como a interface para disk-drive, light- 
pen, os cartuchos, o gravador de 
EPROM, gerador de som, digital tracer, 
speech-card, motherboard e o conver¬ 
sor analógico digital. 

User Friendly 

Uma das principais características 
do produto é o conjunto de funções e 
comandos desenvolvidos especialmente 
para a máquina, com o intuito de faci¬ 
litar ao usuário o trabalho com seu com¬ 
putador. Trata-se de instruções e co¬ 
mandos que tornam o TK 90X um com¬ 
putador ''User friendly", ou seja, volta¬ 
do às suas necessidades. 

Desenvolvido especialmente para 
permitir a fácil manipulação de fitas cas¬ 
setes, além de possuir comandos para 
trabalhar com periféricos mais sofistica¬ 
dos como microdrives e disk-drives de 5 
1/4", 3" e 3,5". 


Outras características que podem 
ser enquadradas no conceito "User 
Friendly" são os comandos TRACE e 
MERGE. O primeiro permite que se 
acompanhe um programa que está sen¬ 
do executado, indicando na tela qual li¬ 
nha o computador está processando. O 
segundo permite a junção de dois pro¬ 
gramas na memória do computador. 
Além disso, no processamento normal, 
quando ocorre um erro de operação do 
programa, aparecem mensagens em 
português, indicando a linha onde ocor¬ 
reu e que tipo de erro foi cometido. Er¬ 
ros de sintaxe são indicados no momen¬ 
to da digitação, ao se dar entrada na li¬ 
nha de programa. 

Inovações tecnológicas 

Apresentado em duas versões — 16 
k e 48 k — o TK 90X reúne uma série de 
inovações tecnológicas, que o transfor¬ 
mam num micro com grandes recursos. 
Entre eles está a possibilidade de se ter, 
através da função UDG, os caracteres 
acentuados da língua portuguesa e es¬ 
panhola. Ela permite ainda ao usuário 
definir seus próprios caracteres, dando- 
lhes a possibilidade de criar efeitos grá¬ 
ficos interessantíssimos, úteis em jogos; 
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TK 90X e as Impressoras 


Abaixo forneceremos um resumo 
das principais características do TK 90X: 

Microprocessador: Z-80 A 
Memória ROM de 16 k 
RAM — 2 versões: 16ke48k 

Software: Interpretador BASIC 
contido em 16 k 

Permite inclusão de vários comandos e 
instrução na mesma linha, bastando se¬ 
pará-los por 2 pontos. 

Teclado: 40 teclas de silicone. 

Vídeo: Conexão de TV em cores, 
sistema PAL-M ou Preto e branco. 

Modo invertido, controlado por soft¬ 
ware 

Cores: 8 cores disponíveis (preto, 
azul, vermelho, magenta, verde, amare¬ 
lo, ciano e branco), disponíveis em texto 
e em alta-resolução gráfica de 256 x 192 
elementos de imagem (pixels), com con¬ 
trole de intensidade para duas tonalida¬ 
des, claro e escuro e com recursos de 
flashing. 

Som: Sintetizador de som via TV 
operado por BASIC que permite obter 
até 10 oitavas. 


INVERSE — coloca o fundo e os carac¬ 
teres em sua cor complementar. 

SOUND — Produz um som com deter¬ 
minada tonalidade e tempo de duração, 
enviando sinal sonoro ao aparelho de TV 
MERGE — Integração de dois ou mais 
programas na memória do computador 
PAPER — Definidor de fundo da tela 
POINT — Indica a cor do ponto na coor¬ 
denada especificada 

TRACE — Faz a monitoração das linhas 
executadas pelo programa BASIC. Pos¬ 
sibilita ao usuário detectar possíveis 
erros de lógica 
UDG — Editor de caractere: 

0 — Acessa caracteres acentuados da 
língua portuguesa 

1 — Acessa caracteres acentuados da 
língua espanhola 

2 — Possibilita a criação de novos carac¬ 
teres . 

VERIFY — Verifica o estado de grava¬ 
ção de programas BASIC e/ou código 
de máquina, dados, tela, etc . . . 

Caracteres — ASCII maiúsculas e 
minúsculas 

Acentuação gráfica em português e es¬ 


panhol. Permite criação de caracteres 
especiais. 

Carga de programas: Sistema 
EASY LOAD, com feed-back visual de 
carga . 

Linguagem: BASIC interpretado, 
com 90 comandos e instruções, contro¬ 
les, e monitor de gravador e periféricos. 
Aceita linguagem como LOGO, PILOT, 
FORTH e PASCAL, via compiladores ou 
interpretadores em fita ou disquete. 

Principais Comandos de Funções 
especiais do TK 90X. 

BORDER — Seleciona a cor da margem 
do vídeo, independentemente da cor da 
zona central da tela. 

BIN — Transforma um número em for¬ 
mato binário para decimal 
BRIGHT — Controla o brilho do fundo 
(zona central da tela) 

CIRCLE — Define circunferências 
DATA — Define um conjunto de dados 
separados por vírgulas 
DEF FN — Define uma função 
DRAW — Traça figuras em alta-resolu¬ 
ção 

INK — Define a cor do caractere a ser 
exibido no vídeo 
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O Esquiador é um jogo 
que estará sendo comer¬ 
cializado em fita cassete 
pela Multisoft Informá¬ 
tica Ltda., para o TK 90X 
Color Computer. 




O Esquiador 
para TK 90X 


Horácio é um esquiador que neces¬ 
sita de sua ajuda para chegar aos Alpes 
suiços e praticar o seu esporte favorito. 

Mas para você conseguir levá-lo até 
lá, deverá transpor certas dificuldades, 
onde o jogo se divide em duas etapas. 

Características 

A tela de apresentação muito bem 
definida, apresenta uma boa animação 
com variação de cores para ressaltá-la. 
Para facilitar a identificação, o desenho 
do personagem e das figuras foram bem 
dimensionados. 

Na tela de jogo existem três placa¬ 
res. Identificando-os da esquerda para a 
direita temos: o primeiro placar mostra 
quanto o jogador dispõe de dinheiro, ou 
seja, por meio dele você terá condições 
de saber se poderá alugar um par de es¬ 
quis; o segundo placar registra o núme¬ 
ro de pontos obtidos no decorrer do jo¬ 
go até seu final; o terceiro placar irá re¬ 
gistrar apenas a soma maior de pontos 
obtidos pelo jogador, ou seja, seu "re- 
cord". 

0 jogo divide-se em duas fases. A 
primeira apresenta uma rua muito movi¬ 
mentada onde circulam carros, motos, 
caminhões e ambulâncias. Em uma de 
suas calçadas encontra-se a cabana de 
esquis. 

A segunda fase mostra uma pista 
de esqui com pinheiros, morros e ban- 
deirinhas caracterizando uma pista de 
competição. 

As figuras definidas na tela de jogos 
abrangendo suas duas partes apresen¬ 
tam formato adequado, proporcionando 
fácil distinção; o mesmo ocorre com os 
placares, que estão separados à uma 
distância adequada, com os números 
bem legíveis. 


Como o programa funciona 

Ao iniciar o jogo você dispõe da 
quantia de 40 cruzeiros, que serão usa¬ 
dos para alugar os esquis e também pa¬ 
ra pagar o transporte do esquiador até o 
hospital em uma ambulância, caso este 
seja atropelado ao atravessar a rua. Nos 
dois casos haverá uma taxa mínima de 
10 cruzeiros. 

A cada 1.000 pontos obtidos, o jo¬ 
gador receberá automaticamente como 
bônus, a quantia de 10 cruzeiros. 

Você dispõe de quatro teclas para 
mover o esquiador nas duas etapas do 
jogo, que estão mostradas na tabela I. 

TABELA I 


TECLAS 

DIREÇÃO 

Q 

1 

Z 

t 

1 


P 



Na primeira etapa do jogo você de¬ 
verá ajudar o esquiador a atravessar a 
rua, para que ele chegue até a cabana 
onde estão os esquis, mas tome cuida¬ 
do para que o esquiador não seja atro¬ 
pelado. Nesta fase, os pontos são obti¬ 
dos a cada vez que você tentar atraves¬ 
sar a rua por completo, mesmo que não 
consiga chegar ao outro lado. Ultrapas¬ 
sada esta dificuldade, se você tiver apa¬ 
nhado os esquis, você terá que ajudar 
novamente o Horácio a atravessar a rua, 
mas cuidado com o tráfego que é muito 
intenso. 

Vencida mais esta barreira você 
chegará às montanhas. Nesta etapa, o 
jogador conduzirá o esquiador monta¬ 
nha abaixo usando apenas as teclas "P" 
(«— )e"l" (—*). 
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Tome cuidado com os pinheiros, 
porque você dispõe de apenas três ten¬ 
tativas. 

A cada choque contra os pinheiros 
aparecerá a seguinte mensagem; "es¬ 
quis ainda estão OK"; no momento que 
você bater em outro pinheiro e apare¬ 
cer a frase "seus esquis quebraram", 
automaticamente retornará a primeira 
etapa do jogo. 

Durante a descida pela montanha o 
jogador deverá conduzir o esquiador pa¬ 
ra que ele passe entre as bandeirinhas, o 
que acarretará soma de pontos. Mas ca¬ 
so não consiga passar entre elas haverá 
perda de pontos. 

Feito o percurso por completo, sem 
nenhum problema, aparecerá a linha de 
chegada. Terminando o percurso, o jo¬ 
gador receberá 100 pontos como bônus, 
mas só no caso de cruzar a faixa de 
chegada. 

Então recomeça-se tudo novamen¬ 
te até o momento em que você perder 
todo o dinheiro e não tiver mais os 
esquis. 

Dificuldades do jogo 

As dificuldades encontradas duran¬ 
te o jogo não são facilmente percebidas, 
porque estas aumentam de forma gra¬ 
duada. 

Após algum tempo de jogo você 
notará que o tráfego de veículos se tor¬ 
na mais intenso, dificultando a travessia 
do esquiador para alcançar o outro lado 
da rua. 

Nas montanhas percebe-se o au¬ 
mento de pinheiros, tornando sua traje¬ 
tória mais sinuosa, e também o espaço 
entre as bandeirinhas torna-se menor, 
exigindo de você um cálculo mais preci¬ 
so para conseguir passar entre elas. 

Pode ocorrer o caso de você ficar 
sem dinheiro, mas isto não significa o 
término do jogo, pois há condições de 
você recuperar essa desvantagem. 

Neste caso só será fim de jogo se 
você tentar alugar um par de esquis sem 
ter dinheiro. Então aparecerá em sua 
tela a seguinte frase: "sem dinheiro, 
sem esquis". 

Conclusão 

O jogo, por apresentar uma boa ani¬ 
mação e definição de figuras bem elabo¬ 
radas, chega a deter por várias horas o 
usuário diante de seu vídeo, onde este 
busca vencer as dificuldades encontra¬ 
das durante o jogo. 

Um produto de qualidade que esta¬ 
rá em breve no mercado de software, 
abrangendo um público que é ligado a 
este tipo de diversão. 
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Introdução 

Um jogo criado para o TK 90X, fabricado pela Multisoft 
Informática Ltda. e destinado a um grupo de pessoas que 
adoram altas velocidades como eu. 

Garanto a vocês, que este jogo dará uma boa noção do 
que é estar atrás de um volante de fórmula-1, onde seus re¬ 
flexos e sua perícia serão de altíssima importância. 

Características 

Você poderá escolher qual o circuito que deseja correr e 
com que tipo de carro fará o percurso. 

O que mais lhe irá chamar a atenção, são os detalhes do 
painel de instrumentos, tendo um efeito realístico muito bom, 
além dos efeitos sonoros criados para dar maior emoção ao 
jogo. 

Você poderá efetuar paradas durante a corrida, ou seja, o 
famoso pit stop, realizado pelos corredores de fórmula-1 para 
a troca de pneus, reabastecimento e eventuais problemas. 

Os circuitos aqui representados possuem o mesmo traça¬ 
do dos reais, dando ao jogador a sensação de estar realmente 
pilotando na própria pista. 

Tanto a tela de apresentação como a de jogo foram bem 
elaboradas, com uma boa animação e fácil identificação das 
figuras. 

Como Jogar 

Observe na tabela 1, como manter o controle de sua má¬ 
quina durante a corrida. 


TABELA 1 


Função 

Tecla 

Acelerador 

0 

Freio 

1 

Avanço Marcha 

M 

Reduzir Marcha 

N 

Disterçar para direita com rapidez 

F 

Disterçar para direita lentamente 

D 

Disterçar para esquerda lentamente 

S 

Disterçar para esquerda com rapidez 

A 


Com esses comandos descritos na tabela 1, você poderá 
tirar o máximo de seu fórmula-1, realizando manobras rápidas 
e presias e um ótimo rendimento de potência. , 

Seu objetivo está em bater o récorde estabelecido do cir¬ 
cuito, mas esta disputa não se resume só a isso, onde você 
poderá tentar superar seu próprio récorde. 

Mas durante a prova poderá ocorrer certos incidentes que 
podem causar seu abandono da corrida, por isso tome cui¬ 
dado. 

Conclusão 

Após este breve comentário sobre o programa, podemos 
dizer que o pessoal ligado ao automobilismo em geral, irá gos¬ 
tar do fórmula-1 por apresentar uma boa definição das figuras, 
além dos sons gerados para dar maior realce ao jogo, e por ter 
várias opções de escolha no que se refere aos circuitos e car¬ 
ros. 


TK90X 


RESGATE: SOCORRO! 

\ Alguém aí em cima está 
me ouvindo? 
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Fabricado pela Multisoft Informá¬ 
tica Resgate chamará muito a atenção 
daqueles que gostariam de fazer parte 
de algum esquadrão de salvamento. 

Esta é a chance de você mostrar 
que possui habilidade em salvamentos, 
mesmo que tenha que arriscar a própria 
vida para fazê-lo. 

Mas, para aqueles que preferem 
outro tipo de aventura, esta é uma boa 
oportunidade de tentar saber se pos¬ 
suem alguma experiência em resgates. 


Características Gerais 
Após ter carregado o programa, 


aparecerá a primeira tela, onde você de¬ 
verá escolher um número de 1 a 5 refe¬ 
rente aos Games. 

Ao lado dos mesmos há uma outra 
coluna, indicando o nível de dificuldade 
de cada Game. 

Na segunda tela você deverá esco¬ 
lher um número de 1 a 4, optando jogar 
usando o teclado, joystick ou o cursor. 

A terceira tela é um complemento 
da segunda, ou seja, dependendo da 
sua opção, feita anteriormente, esta tela 
apresentará uma tabela explicando co¬ 
mo utilizar os itens da tela número dois. 

Ao dar início ao jogo, seu objetivo é 
o de salvar um mineiro que se encontra 


no fundo de uma mina submersa, onde 
a quantidade de oxigênio disponível é 
insuficiente para a sobrevivência. 

Você dispõe de quatro chances 
para tentar salvar a vítima. 

Mas para você chegar a ela, deve¬ 
rá superar vários obstáculos, que variam 
dependendo do Game que optou para 
jogar. 

Para sua defesa contra os inimigos 
você tem à sua disposição, seis grana¬ 
das e um capacete que dispara raios 
laser. 

Com respeito às granadas tome 
muito cuidado. Ao ativá-las mantenha 
uma certa distância para que a explosão 
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não o atinja. 

Observe na tabela, como acumu¬ 
lar o maior número de pontos possíveis. 


Matando criatura 

50 pontos 

Valor de cada dinamite 
não usada após resgate 
do mineiro 

50 pontos 

Valor de cada parede 
dinamitada 

80 pontos 

Cada vez que resgatar 

o mineiro 

1000 pontos 


Conclusão 


Suas obras de lazer poderão ser 
preenchidas por completo e de uma for¬ 
ma agradável com este jogo. 

Resgate é muito interessante e 
prenderá sua atenção por várias horas, 
quando você tenta conseguir salvar um 
mineiro que se encontra em sérias difi¬ 
culdades. 

Apresentando uma boa animação e 
bons efeitos sonoros Resgate apresenta 
boa qualidade que dá um aspecto mais 
realístico ao jogo. 



TRANSFORMAÇÕES 

GEOMÉTRICAS 





Dentre as diversas aplicações dos microcomputadores 
existe uma que é voltada à área de educação. 

Nesta área, os softwares desenvolvidos visam uma com- 
plementação do estudo iniciado na sala de aula. 

Esses programas, chamados educativos, se enquadram 
em duas classes: demonstrativos — visam uma explanação do 
assunto sem que haja qualquer participação efetiva do usuá¬ 
rio — e os interativos, que dependem da entrada de respostas 
para que seja possível sua continuidade. 

Os programas educativos devem fazer parte de um paco¬ 
te para que suas funções sejam plenamente exercidas. 

'Transformações Geométricas" é um programa educa¬ 
cional demonstrativo desenvolvido para o TK 90X de 48 kB de 
RAM. 

Ele introduz conceitos de Geometria Plana e obtenção de 
pontos transformados pelos métodos de Translação (fig. 1), 
Rotação (fig. 2), Simetria axial (fig. 3) e Homotétia (fig. 4). 

Demonstra cada um dos conceitos através de gráficos em 
alta-resolução e perguntas com respostas programadas. 

O programa é composto por três módulos de gravação 
que devem ser carregados seqüencialmente, o que é feito con¬ 
forme mensagens de orientação que o próprio programa for¬ 
nece ao usuário. 
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MULTITEX 



Fábio Augusto Polônio 


Processadores de texto são progra¬ 
mas aplicativos que tornam o micro¬ 
computador uma máquina de escrever 
com vários recursos de formação de tex¬ 
to. Multitext é um processador de texto, 
desenvolvido pela Multisoft para o TK 
90Xde48kB de RAM. 

Ele gera uma tela que exibe uma 
"janela" do torto de 22 linhas e 64 ca¬ 
racteres/linha. 0 texto pode ter até 320 


linhas ou cinco páginas. 

No modo extendido, esta janela 
pode ser aberta e mostrar somente 32 
caracteres por linhas. 

Além dos caracteres especiais exis¬ 
tem os comandos no modo extendido 
que permitem a manipulação do texto 
de diferentes maneiras. Dentre os mui¬ 
tos recursos do Multitext, estão: defini¬ 
ção de margens (tanto a esquerda quan¬ 
to a direita); transferência de blocos de 
texto; ajuste da última palavra da linha; 
eliminação de espaços entre palavras; 
organização das palavras na linha. 


Além disso, o Multitext pode utili¬ 
zar para impressão, caracteres do pa¬ 
drão Epson. Isto corresponde a carac¬ 
teres expandidos/comprimido; subli¬ 
nhados; itálicos; dupla-batida e propor¬ 
cional. Neste último, cada caractere 
ocupa o espaço relativo a seu tamanho. 
(Por exemplo, o caractere "i" não ca¬ 
pará o mesmo espaço que o caractere 
"m"). 

Com um bom conjunto de recursos 
de edição e impressão de textos, o pro¬ 
grama Multitext deverá atender perfeita¬ 
mente às necessidades de usuários do 
TK90X. 


SOFTCALC 


A Planilha Eletrônica para o TK 90X 
fabricada pela Multisoft Informática 


O Programa 

O Softcalc é um programa desen¬ 
volvido pela Multisoft Informática e que 
será comercializado em fita cassete, pa¬ 
ra os usuários do TK 90X. 

Ele é uma planilha eletrônica, de¬ 
senvolvida num TK 90X e pode ser uti¬ 
lizado também em um ZX Spectrun. 

Como todas as planilhas, o Soft¬ 
calc transforma a tela do TK 90X em 
uma grande folha de papel; o cursor em 
um lápis que efetua cálculos como se 
fosse uma calculadora. Tudo isto está à 
disposição do usuário. 


Operando o Softcalc 

Para sua operação, o Softcalc ne¬ 
cessita de um TK 90X, um gravador e 
duas fitas cassetes: uma contendo o 
próprio programa; outra para receber os 
dados, além de uma impressora para 
emissão de relatórios. 

A impressora especificamente não 


precisará ter 80 colunas, pois o próprio 
usuário poderá formatar seu formulário 
em qualquer tamanho padrão. 

Tendo carregado o programa, de¬ 
ve-se retirar a fita e introduzir uma nova 
para se gravar os dados. 

Não será mais necessário usar a fita 
do programa, pois ele já está armazena¬ 
do na memória. A fita de dados recebe¬ 
rá posteriormente uma gravação da pla¬ 
nilha que será desenvolvida. 

Funções 

O usuário do Softcalc dispõe das 
seguintes funções de cálculo: aritméti¬ 
cas, trigonométricas, transcendentais, 
lógicas e auxiliares. 

Além destas, existem outras fun¬ 
ções destinadas a facilitar seu modo de 
operação. 

Características Gerais 

O Softcalc coloca à disposição do 
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usuário uma planilha de 250 linhas por 
99 colunas. 

Deste total, o usuário dispõe de 
uma janela de 15 linhas por 3 colunas. 

As linhas são representadas por 
uma ou duas letras, e as colunas por nú¬ 
meros de 1 a 250. 

Assim, cada posição pode ser re¬ 
presentada por uma ou duas letras se¬ 
guidas de um número. Por exemplo: ai, 
clO, aa3,. . . etc. 

Observando o Softcalc, verificamos 
sua versatilidade, capacidade de cálcu¬ 
lo, facilidade de operação e compatibi¬ 
lidade de dados com o Omnicalc 2, em 
ambos os sentidos. 

O Softcalc provou ser uma ferra¬ 
menta muito útil a vários profissionais, 
principalmente àqueles que necessitem 
manipular uma grande quantidade de 
dados e precise de uma representação 
visual clara e limpa. 

Com o auxílio de uma impressora, o 
computador fornecerá, em alguns minu¬ 
tos, uma planilha que antes levaria horas 
para ser calculada e apresentada. 
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EDITORIAL 




0 surgimento de qualquer revista no mercado editorial é 



o 


seguido sempre de uma expectativa muito grande por parte do 




público, com relação ao novo veículo. Espera-se que a novidade 



o 


traga novas maneiras de lidar com a informação, abra espaços 




para o leitor e, o mais importante, preocupe-se com os seus de- 



o 


sejos e ansiedades. No caso de revistas especializadas esta 




expectativa é bastante ressaltada, devido às suas próprias ca¬ 
racterísticas, além do fato delas precisarem estar em mutação, 


J\ 


o 


acompanhando as tendências e evolução da área a que se de¬ 
dicam. 


o 


A Microhobby vem buscando, desde seu início, seguir es- 


O 


tas tendências através do contato constante com seu público, 
que tem sido seu principal colaborador. A sua linha editorial 


o 

O 


desenvolveu-se junto com a evolução de seu leitor e, em para¬ 
lelo, ao desenvolvimento da tecnologia de microinformática. 


o 

O 


Tentar acompanhar esta área é uma tarefa árdua, já que ela 
evolui muito rapidamente; mas, no entanto, temos que cumprir 


o 

o 

w 

o 

o 


este dever. Afinal de contas, o usuário supera a si mesmo à me¬ 
dida que adquire o conhecimento necessário para usar seu 
equipamento plenamente, Esta situação nos impele cada vez 
mais a um progresso qualitativo, inovando sempre, apresen¬ 


o 



tando as novas tendências e suprindo as carências dos usuários 
e equipamentos que abordamos. 

Baseados nestes parâmetros estamos apresentando uma 
inovação tecnológica que começa a surgir no mercado brasi¬ 
leiro de computadores pessoais. 0 TK 90X (que fará parte das 
páginas da Microhobby a partir desta edição) é, conforme res¬ 
saltado pelos responsáveis da empresa, uma evolução tecnoló¬ 
gica que vem suprir as aspirações dos usuários dessa linha de 
equipamentos pessoais. Teremos seções dedicadas ao novo 
micro; analisaremos os periféricos compatíveis, assim como os 
softwares existentes. 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Em contrapartida, abriremos, a partir da próxima edição, 
novas seções ao mesmo tempo em que incrementaremos ou¬ 
tras. Neste aspecto, as seções como Clube do Usuário, Cartas 
dos Leitores e Micropress serão dinamizadas com o intuito de 
aproximar mais o nosso leitor à redação, buscando dessa for¬ 
ma, novas idéias, progressos alcançados com o uso do micro e 
interagindo os usuários uns com os outros. 

Nosso trabalho visou sempre o interesse do leitor, forne¬ 
cendo para ele a realidade da nova sociedade (aquela que usa o 
computador em todos os setores da vida do indivíduo) e os 
subsídios para um melhor desempenho de seu computador. 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Além de tudo, ouvindo-o sempre. 


o 

o 


Ana Lúcia Alcântara 


o 
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CARTAS 



Microhobby 

Av. Angélica, 2318/14? 

São Pai5o 


Futuras Literaturas 
para o TK-85 

‘ ‘Vimos por meia desta solicitar a 
fineza de enviar-nos informações a 
respeito de duas bibliografias que es¬ 
tamos interessados em adquirir, a sa¬ 
ber: 

— ‘ ‘ Basic Avançado 

— “Linguagem de Máquina” 
para TK (aplicações avançadas) 2? vol. 
Flávio Rossini. 

Precisamente, gostaríamos de to¬ 
mar conhecimento se tais livros já fo¬ 
ram editados e, se afirmativo, qual o 
procedimento para a mais rápida 
aquisição dos mesmos. 

Certos da sua atenção, aproveita¬ 
mos o ensejo para parabenizá-los pe¬ 
la excelente obra “Linguagem de Má¬ 
quina para TK” — de Flávio Rossini, 
e estender nossos votos de estima e 
consideração.” 


Cara Sandra, 

No primeiro jogo, onde você é o 
Barão Vermelho, seu objetivo é tentar 
pousar numa ãrea que esta repleta de 
obstáculos, que devem ser destruídos. 
As teclas que poderão ser usadas são as 
seguintes: 

1, 2, 3, 4, 5 — movimenta o 
avião para baixo ; 

6, 7, 8, 9, 0 — movimenta o 
avião para cima. 

Para carregar o jogo use LOAD 
“BARÃO". 

No segundo jogo, Pac-Hobby, 
você estará representado por um sím¬ 
bolo: 0. Seu objetivo ê “comer" o 
máximo de (.) ' pontos '' e fugir dos 
montros: D. 

Para você se mover use as teclas: 

5 — para esquerda 

8 — para direita 

6 — para baixo 

7 — para cima 

ou joystick. 

Hã nove níveis de dificuldade 
numerados de (1 a 9), sendo o primei¬ 
ro nível o mais difícil. 

Para carregar o programa use 
LOAD “PAC". 

Disco Voador 
Segunda Parte 


Pedro Henrique Sallé 
Barra do Pirai — RJ 

Caro Pedro, 

Em primeiro lugar agradecemos 
os elogios a nos prestados. Quanto a 
estas literaturas não sabemos quando 
serão editadas. Motivo este, devido ao 
fato desses livros não serem editados 
por nós, como aconteceu nas outras 
obras. Caso se concretize esses lança¬ 
mentos, nós os publicaremos na seção 
de livros de nossa revista. 

Como funcionam os jogos: 

O Pouso do Barão Vermelho 
(2K)e Pac-Hobby (16K) 

Solicito a Vossa Sras. maiores in¬ 
formações sobre o funcionamento da 
fita contendo os jogos: O Pouso do 
Barão Vermelho (2K) e Pac-Hobby 
(16K).” 

Sandra Emília Bizaio 
São Paulo — SP 


“Possuo o n? 11 de Microhobby 
que tem nas páginas 32 e 33, a pri¬ 
meira pane do programa Disco Voa¬ 
dor. Gostaria de saber todas as infor¬ 
mações necessárias para conseguir o 
restante desse programa. Parabéns 
pela revista e continue assim. ’ ’ 

Acyr Vieira Rodrigues Junior 
Uberaba — MG 

Caro Acyr, 

Estamos gratos pelos votos de su¬ 
cesso. Nossa maior preocupação tem 
sido oferecer cada vez mais o melhor 
para nossos leitores. 

A segunda parte do programa 
Disco-Voador foi publicada na edição 
n°. 12 de Microhobby, na seção por 
Dentro do Apple, nas paginas 28 e 
29. 

Para adquirir números atrasados, 
você poderá vir pessoalmente à reda¬ 
ção ou fazer seu pedido por carta, en¬ 
viando um cheque nominal à Micro- 
mega PM. D. LTDA. 


Clube de Usuários 


TK-85 

Avelino de Oliveira 
R.C. NR0.11 

06730 — Vargem Grande Paulista — SP 
Área de interesse: educação 

Marcelo Nogueira Magalhães 
R. Castro Meirelles290 — Maraponga 
60000 — Fortaleza — CE 

Marcos Dias Alves 
R. Espanha 659 — Pq. das Nações 
09000 — Santo André — SP 
(TK-82 com expansão) 

André Zielasko 
Caixa Postal-77 
95590 — Tramandaí — RS 
(possui alta-resolução) 

Eduardo Lemos Wojciuk 
R. Machado 79 
07000 — Guarulhos — SP 

TK-2000 

Gabriel Julio de Castro 

R. Antonio de Proença 74-A — Piqueri 

02912 - São Paulo - SP 

Carlos Vinícius Araújo Amaral 
R. Clarice Índio do Brasil 38 ap. 601 
22230 — Rio de Janeiro — RJ 

Luiz Fernando Ramos 
R. Oswaldo Cruz 17 ap. 1002 
Icaraí — Fone: 7114360 
24230 — Niterói — RJ 

Edvalton de Almeida Rocha 
R. de Nazaré e Odylo 377 
Centro - Fone: (098) 2227351 
65000 — São Luis — MA 

Afrânio Machado Branco Ramos 

Caixa Postal 422 

19900 — Ourinhos — SP 

CP-200 

Licínio Luiz Ramos Branco 
CLN 306 BL. D ap. 103 — Asa Norte 
70745 — Brasília — DF 
(também possui TK-2000) 

Observação 


Para ter seu nome publicado, envie 
correspondência para: Microhobby, Clube 
de Usuários, Caixa Postal 54096, Sâo Pau¬ 
lo — SP — CEP 01296. Indique o computa 
dor que possui, as interfaces e sua área de 
interesse. Nosso clube está aberto a usuá¬ 
rios de: TK-82/83, TK-85 e compatíveis, TK- 
2000 e Apple e compatíveis. É bastante 
útil a sua opinião e sqgestOes para melho¬ 
rarmos esta seção, portanto escreva-nos. 
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PROGRAMAS 



Você é o comandante de uma ba¬ 
se militar lunar e deve defendê-la como 
tal (usando um canhão laser) do ata¬ 
que de naves inimigas que tentam des¬ 
truir seus geradores de energia. 

Este é um fascinante jogo para o 
TK 90X, que explora toda a capacida¬ 
de gráfica de seu micro. 


As sub-rotinas usadas no programa 

Linhas 

Sub-rotinas 

900-990 

Instruções do jogo 

700-790 

Determinação das variáveis e definições de 


caracteres especiais 

800-890 

Desenho da tela (fundo da ação) 

300-340 

Movimento dos inimigos 

100-125 

Movimento da mira do canhão 


Por outro lado, isto causa uma desotimização do progra¬ 
ma, tornando-o um pouco lento. Mas, com algumas modifi¬ 
cações que você mesmo pode fazer — como, por exemplo, 
eliminar-se alguns comandos de som, passar para lógica estru¬ 
turada, evitando-se o uso de muitas sub-rotinas, utilizar lin¬ 
guagem de máquina, etc. — ele pode tornar-se bem mais rá¬ 
pido. 


Definindo os caracteres 


Este programa é um interessante jogo de ação, onde você 
comanda um canhão laser para destruir naves alienígenas que 
ameaçam destruir suas reservas de energia. 

Os alienígenas tentarão se aproximar ao máximo dos tan¬ 
ques de combustível antes de destruí-los. Você verá esta apro¬ 
ximação na tela, pois, inicialmente, as naves inimigas ocupa¬ 
rão uma pequena área da tela e aumentarão progressivamente 
de tamanho, dando uma perfeita ilusão de aproximação. Vo¬ 
cê dispõe de um canhão laser cuja mira é perfeitamente visível 
na tela. Dirija-o com auxílio das teclas 5, 6, 7 e 8, colocando 
a mira sobre o inimigo e dispare (tecla 0)! Quanto mais próxi¬ 
mo ele estiver, mais pontos você ganha. Por outro lado, esta 
proximidade torna mais fácil aos alienígenas destruírem suas 
reservas de energia. Cuidado! 

A técnica empregada no programa 

O programa é auto-explicativo e possui dois níveis de difi¬ 
culdade (0 — difícil e 1 — fácil). A duração do jogo é determi¬ 
nada pela quantidade de energia disponível: quando ela se 
acabar, o jogo termina. 

A lógica empregada na construção do algoritmo do pro¬ 
grama é a modular, isto é, várias sub-rotinas gerenciadas pelo 
programa principal através de GOSUB. 

Isto trás uma vantagem, pois permite que se observe cada 
trecho do programa individualmente. O intuito maior de se 
usar esta técnica foi mostrar artifícios de programação e ani¬ 
mação de telas, que poderão ser úteis em futuros programas 
(tabela I). 


Antes de digitar o programa há a necessidade de defini¬ 
ção dos caracteres gráficos especiais. Isto pode ser feito atra¬ 
vés do editor de caracteres, exclusivo do TK 90X. Para aces¬ 
sar-se o modo de edição de caracteres, devemos chamar a 
função UDG 2, logo após ter sido ligado o computador, pois 
senão "coisas estranhas" poderão acontecer no modo 
gráfico. 

Assim que for acessada a função, aparecerão na tela as 
letras do alfabeto de A até U, representadas em uma matriz 8 x 
8 (figura 1). 



Para criar um novo caractere, inicialmente digite a letra a 
ser desenhada. A seguir, limpe a matriz com as teclas CAPS 
SHIFT ou SIMBOL SHIFT e o número 1 pressionados simul¬ 
taneamente. No canto superior esquerdo aparecerá um ponto 
que pode ser movimentado para qualquer direção dentro da 
matriz pelas teclas 5, 6, 7 e 8. Para escurecer o quadro onde o 
ponto se localiza, pressione CAPS SHIFT e uma das telas de 
movimentos simultaneamente. Pressionando SIMBOL SHIFT 
mais uma das teclas de movimento apaga-se o ponto gerado. 
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Uma vez criado um caractere, chame o próximo, digitando a 
tecla correspondente, sem pressionar CAPS SHIFT. 

Para sair do modo de edição de caracteres, digite CAPS 
SHIFT e a tecla 0 (zero) simultaneamente. Para acessar os 
caracteres gerados digite CAPS SHIFT e a tecla 9 ao mesmo 
tempo, obtendo assim, o cursor G. Digitando-se a tecla cor¬ 
respondente obtém-se o símbolo gráfico criado no modo UDG 
2 (figura 2). 



SlSSSiSi 

nsimien 

mggggfTi 

CARACTERE A 


r 


gggggr 

ggmgir 

gggggggg 

mu i iíTi 

gggggmj 


CARACTERE C 



Iggggg 


CARACTERE B 

jgggggg 

]gggg| 
gggggggg 

mggggm 

gggggggg 

ginirD 

gggggggg 

CARACTERE D Figura 2 


Para construir os invasores use a tabela II. 


Tabela II 


As posições relativas dos invasores 

Posição 

Caracteres usados 

Mais afastada 

Caractere A ^ 

Média 

Caracteres B e C 

Mais próxima 

Caracteres B, D e C ss- 

Usou-se para definir os invasores nas diversas posições os 
caracteres definidos na figura 2. 


Fazendo desta forma, você conseguirá um efeito de apro¬ 
ximação do inimigo, que se tornará cada vez maior quanto 
mais próximo estiver das reservas de energia. 

A mira e as explosões podem ser construídas conforme a 
figura 3. 


Oggggggg 
Jg 



gjxngrp* 


«□*■ 


MIRA 


ssssssss 


EXPLOSÃO 



igura 3 


Digite agora o programa, tendo o máximo de cuidado, 
principalmente com os caracteres gráficos especiais. 


1 RfcM Bfibfc LUNRR 
2© GOSUB 900 
30 GOSUB 700 
35 GOSUB 800 
4-0 GOSUB 300 
4-5 GOSUB 100 

50 IF htOl THEN GOSUB 100 
70 PRINT INK 5; OUER 0;RT 19,6 
; p o ; " ; RT 19,25; s c ; RT 20 , 6 ; Lz; fi 

T 20.15;tno;RT 20,25;Ki 
80 IF PO <0 THEN GOTO 600 
90 GOTO 40 

100 L tT U X 0 = U X : L ET U >4 O = U y 

101 LET ü S=INKEY$ 

105 IF U $ = ”" THEN RETURN 


106 IF U $ = ” 0 " OR üí="1" THEN GO 
TO 150 

107 IF U $ <"5" OR Uí>"8" THEN RE 
TU RN 

110 Li=T U X =u X 4 (ü S = " 8 *' RND U X < 29 
3 -(U $ = "5" RND UX>2> 

120 LET uy =uy+(U$="6" RND uy<13 
3 -(U $ = "7" RND Uy <13 3 -(U $ = "7" RND 
u y > 2 3 

12b IF U X = U X 0 RND U ! 4 = U >4 O THEN P; 
ETURN 

130 PRINT INK 7;RT u«4G , uxo ; "Z" ; 
INK 6RT u y . u x ; "Z" ; LET p o =p o -1 
: SOUND .005.20-uy; RETURN 
150 INK 5: LET PO =P0-10 
155 LET lZ=tZ+l: LET l CX =UX *8 + 4 
: LET l C >4 = (21 -U*4 3 *8+4 
150 FOR n=l TO 2: SOUND .04,6: 
SOUND .02,12: PLOT 8,56: DRRU l C 
X-8,lcy-56: PLOT 247,56: DRRU lc 
X-247,lcy-56: INK 7: NEXT n 
175 INK 6: FOR n=1 TO 2: PRINT 
RT U y , üX -1; " >>>: < •• ; SOUND .03,24: 
INK 7: NEXT n " 

180 IF NuT (ü'4=t>4 RND u X > = t X - d f 
RND UX <tX +df+LEN't$3 THEN INK 5 
: RETURN 

200 OUER 1: LET ht=0: LET Ki = Ki 
+1: LET SC=SC+100—LEN t$*10 
210 FOR n =1 TO 4: PRINT RT uy-1 
, u x -1" \ * / ■'; RT u >4 , u x -1; ; RT 

uy+l,uy-l;”/ *\": SOUND .1,36. 50 

UND .05., 6: INK 7: NEXT n : LET ht 
= 1 

220 RETURN 

300 IF h t =1 THEN GOTO 360 
302 LfcT t>4 0 = t'4 : LET tX0=tX 
305 LET Ui= t $: LET tX =t X +1 

310 IF ty >=12 THEN LET tc=-l 

311 IF ty<=4 THEN LET tc=l 

312 LET ty=ty+tc+(INT (RND+23 fi 
ND t >4 < 14 3 - (INT (RND*2 3 RND t ! 4 > 33 

315 LET t$ = ”" : LET t$=("*” RND 
tx <93 + ( RND tX > =9 RND tX < 183 

+ ( RND tx > =183 

330 PRINT INK 4; RT t >4 0 , t X 0 U $; fi 
T t y , t X t $ : SOUND .02.-12 
343 IF ty >8 RND RND<.7 RND ( (tx 
>16 RND tx <213 OR tx=24 3 THEN IN 
K 2: FOR ffl =1 TO 2: FOR n=-l TO 2 
: PLOT tX *8 + 12,175- {t>4 *8 3 -12 : DP: 
RU n*3.-40: SOUND .003,30: NEXT 
n : INK 7: PRINT INK_6;RT 21,0;"1 

EXT fíi 

355 IF tX < =27 THEN RETURN 
360 PRINT INK 7; RT t'4,tX.;t$: LE 
T t n 0 = t n 0 +1: LET t X =2: LET ty =7 + 
INT (RND*63 : LET tc=l: LET ht=0 
375 LET ta:"*" 

380 PRINT INK 4;RT ty,tx;t$ 

385 RETURN 

600 FOR n =0 TO 74: INK n/10: 50 

UND . 06 , Kl -50 : PRINT RT 10,8;”- F 
IM Dfl MISSfiO -”: NEXT n 
548 FOR n=0 TO 74: BORDER 7-n/l 
0: SOUND .05.H-20: NEXT n 
660 INPUT INK 6;TRB 6;"OUTRR MI 
SSflO ? ";u í 

685 IF u$="n" THEN GOTO 9999 
698 RESTORE : GOTO 30 
700 INPUT INK 2; "Di fiCUL d Sd£ ?: 
0(dificiU ou I ” ; r $ : IF r $ o " 0 " 
THEN LET r$=”l” 
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78b LE! df=UfiL f 4 
710 LbT UX =10: LE7 Uy=10 
71b L tT U X 0 = U X : L ET U y 0 = U y 

720 LET t X =4-: LET t >4 =2 : LET tXO 

= tX: LET t y 0 = t U: LET t C =1 

730 LET P Cf =999 : LET £ c =0 : LET fc 

i=0: LET 12=0: LET ht=0 
74-0 LET t$="*": LET tno=l 
750 FOR n=USR "a" TO USR " 9 "+7 
760 REfiD d• POKE n.d: NEXT n 
770 RETURN 

730 DRTft 255,129 =0,0,0,129,129, 
255,0,0,0,24- , 36,255,36,0 
765 DP.Tfi O ,0,2,7,9,255,9,2,0,0 , 
32,224,144,255,144,64,112,32,210 
, 255', 126,255,126,169 
790 DfiTfi 16.68,16,3.230,0,20,16 
, 149,88,40,231,82,20.74,145 
800 BORDER 0: PRPER 0: INK 7 
805 OU ER 0: CL5 

310 PLOT 3,26: DRfiU 247,0: DRfiU 
8,144: DRRU -247,0: DRfiU 0,-144 

311 LET qy=34: LET qc=6 

812 FOR n =1 TO 6: PLOT 5,?y 

813 DRfiU 243,0: LET gC =g C-1: LE 
T gy=gy+gc: NEXT n 

815 FOR n=l TO 70: INK 2+RND46: 
PLOT 10+RND4230,70+RND*90: DRfiU 
RND,0: NEXT n: INK 7 

820 LET q C =1: LET qy =54 

821 FOR n=5 TO 247: LET gy=gy+g 
C+INT (RND*33-1: PLOT n.qy: DRfiU 

0 , - £ RND 4 £ q y -55 3 PHD q y > 543 

822 IF RNDi.l THEN LET gc=-gC 

823 IF gy >61 THEN LET gc=-INT ( 
RND42,53 


824 IF gy <54 THEN LET qc=INT (R 
ND 42.53 
826 NEXT P 

328 PRINT INK 5:fiT 15,1; "J" ;fiT 
15,30; "fe" ... 

830 FOR m=0 TO 60 STEP 20 
832.IF »=40 THEN NEXT m 
834 FOR n p38 TO 51: PLOT 140+ííi , 
n: DRfiU 20,0,,7: NEXT n: DRfiU -2 
0,0,.7: NEXT ffi 

850 FOR n=l TO 5: CIRCLE INK 4; 
23,140,n: NEXT n: OU ER 1 
870 PRINT INK 5;fiT uy.UX; "Z" 

880 PRINT fiT ty ,tXI 
885 PRINT fiT 19,©; " for ca";fiT 19 
,19;"score";fiT 20 , 0 ;"laser ";fiT 
20, 12;"no";fiT 20 ,19;"KILLS" 

890 SOUND 1,9: RETURN 

90© BORDER 7: PfiPER 7: INK © 

905 OU ER 0: CLS 

910 PRINT fiT ©.IO;"BfiSE LUNfiR" 
915 PRINT "UOCE CONTROLA UMfi.E6 
TfiCfiO DE LfiSER OUE PROTEGE fi LUfi 
DOS INIMIGOS" 

930 PRINT "Hfi UM LIMITE DE FORO 
fi DE DEFESfi. ATINGIDO ESSE LIMIT 
P , TERMINA SUfi fiUENTURfi” 

940 PRINT "PfiRfi ATIRAR TECLE <0 

> OU <1>" 

950 PRINT "TECLE <5> OU <S> PAR 
fi MOUIMENTfiR LfiTERfiLMENTE fi MIRA 
DO LfiSER E <6 > OU <7> PfiRfi MOUI 
MENTOS UERTICAIS" 

985 RETURN 

9999 BRIGHT 0: FLASH 0: OUER 8: 
INK 8: PfiPER 7: BORDER 7 


I 


UTILITÁRIOS 
TK-2 OOO 



2 0 0 0 


Simplifica extremamente a criação de fi¬ 
guras e caracteres, ultilizando alta re¬ 
solução gráfica a cores de seu TK 2000, 
reduzindo a duas regras simples todo o 
processo. Oferece total flexibilidade, 
monitoração imediata, opção para grava¬ 
ção do desenho em fita, e recuperação 
dos códigos em decimal e hexadecimal. 
Acompanha manual detalhado. 


ROM 


2 0 0 0 


Acesso aos endereços (e listagem em im¬ 
pressora) das rotinas de Teclado, Vídeo 
1/0, Cassete, Basic, etc da Rom de seu 
TK 2000, incluindo descrição da Página 
Zero. Ele é acompanhado pelo Disk-7, 
que transfere programas em‘linguagem de 
máquina do cassete para o disco (alte¬ 
rando para formato APPLE) e vice-versa. 


Você gosta de programação? Finalmente lançados os programas que você estava esperando 
para seu TK 2000. Graphs 2000 e ROM 2000 são os utilitários que chegaram para 
facilitar a sua vida, seja você um iniciante ou expert. Estes dois programas não 
podem faltar em sua softeca! 


Você gosta de diversão? Gamma Goblins, Space Eggs, Ceiling Zero, Grand Prix, e 
Eliminator são as ultimas novidades em matéria de jogos para seu TK 2000. 


Todos os programas são acompanhados de instruções e moderna 
em sua casa, envie pedido acompanhado de cheque no¬ 
minal cruzado a Cibertron Eletrônica Ltda. 

Caixa Postal 17.005 - C.E.P. 02399 - São Paulo - SP 
Jogos a Cr$16.900 cada - Utilitários a Cr$29.800 cada 
Garantia integral - Remessas em três dias úteis. 


embalagem. Para recebe-los 

















Este é um programa aplicativo que se utiliza das regras de 
Cramer na obtenção das n soluções de um sistema de n equa¬ 
ções. Pode ser usado para resolver sistemas, equações ou 
como sub-rotina de cálculo num programa mais complexo. 

O algoritmo desta regra consiste em se tomar o coeficien¬ 
te de cada incógnita e formar uma matriz, ordenando esses 
elementos de fçrma que os coeficientes de uma mesma variá¬ 
vel pertençam a uma mesma linha ou coluna. Por exemplo: 


Sistema 

Matriz Referente 

2x + 3y = 9 

4y - x = 1 


"2 3 
_-1 4_ 

ou 

i 

00 

iLLJ 



Se o determinante da matriz for menor do que zero, o sis¬ 
tema é impossível de ser solucionado; se o determinante da 
matriz é igual a zero o sistema é possível e indeterminado, ou 
seja, com múltiplas soluções. Sendo maior do que 1 (um) o 
sistema é possível e determinado, ou seja, apenas uma 
solução para cada incógnita. 

0 programa Cramer segue fielmente a este algoritmo, 
dimensionando uma matriz de n linhas en + 1 colunas. 

Pode ser aplicado no TK 90 X de 16 ou 48 kB. 

O limite de equação é relativo à capacidade de memó¬ 
ria do microcomputador se ele possui 48 kB, senão (16 kB) 
esse limite cai a 30 incógnitas. O computador pedirá para 
serem introduzidos todos os dados. Para n incógnitas, é ne¬ 
cessário a introdução den 2 + n dados. Escolha um sistema de 
equações e . . . boa sorte! 


O programa 


1 

REM CRRMER 



3 

G05ÜB 200 



5 

CLERR : RESTORE 


8 

BORDER 7: PRRER 7 

: INK 0: C 

r 

Üi 




10 

IHPUT !S NUMERO 

DE 

EQUPCOES ? 

".; n: 

IF n<=0 OR n> 

=30 

THEN GOTO 

10 




12 

DIM H Cn .n+13 : 

FOR 

j=l TO n: 

for 

1=1 to n+i 



14 

IF i =n +1 THEN 

GOTO 30 


15 PRINT RT 3*5; “EOURCRO 11 I j ; " 
: X"; I ; - ?"; 

20 GOTO 40 

30 PRINT RT 8,5; “EOURÜRO “;,í; 

40 IMPÜT H ü.i ; : NEXT i : CL 5 
: NEXT j : FOR .1=1 TO n : FOR i = j 
TO n 

50 IF híi*.i)=S THEN GOTO 170 

70 FOR Fn = 1 TO H ti : LET V = H C j , m 
) : LET H ( j , m 3 =H C i * n 3 . LET H ( i , ífi 3 
=V: NEXT m 

80 LET W=l/H(j,j3: FOR Fu =1 TO 
ff tl : LET h (.1 , fíi 3 =U ±H (.i * fú 3 : NfcX I Fn 

35 BORDER 0: PRPER 0: INK 7: C 
LS 


30. 

FOR 


i=1 TO n: 

IF i = .j THEN G 

OTO 

110 




100 

LET 


W = - H ti , j 3 

: FOR FF? = 1 TO n 

+ 1 : 

LET 

H £ i , fíi 3 =H í i 

, Ifi 3 +W *H ( j , Fft ) : 

NEXT 

Fn 




110 

r* 

NEXT 

i: NEXT 

j: FOR i=1 TO 

112 

SOUND .1,30 


114 

IF 

i 

=77 THEN 

GOSUB 250 

115 

IF 

i 

>75 THEN 

LlT ü =i -75: GO 

TO 1 

22 




116 

IF 

i 

=58 THEN 

GOSUB 250 

117 

IF 

i 

>57 THEN 

LET U =i -57: GO 

TO 1 

22 




118 

IF 

i 

=33 THEN 

GOSUB 250 

113 

IF 

i 

>38 THEN 

LET U=i-3S: GO 

TO 1 

22 




120 

IF 

i 

=20 THEN 

GOSUB 250 

121 

IF 

i 

>13 THEN 

LET ü =i -13 

122 

IF 

i 

>19 THEN 

PRINT RT U .» 8; “ 

X“.; i 

; :t = 


' ;Hii , n 413 : GO! 0 12b 

123 

‘ IF 

i 

• 20 THEN 

PRINT RT i,8; s ‘ 

x M ; í 

.» = 


" ; H £ i , n + 13 

125 

NEXT 

i 



130 PRINT P;T 21*3; INK S; BRI6 H 
Ti;"se deseja continuar, tecle 
s ! * 

14-0 PAUSE 0: LET ©*=INKEYS: IF 
CODE Qí=115 OR CODE Qi=33 THEN G 
OTO 150 
145 STOP 

150 FOR Bi =-10 TO 30. SOUND . 4,- 
20: NEXT ffi: GOTO 5 
170 NEXT i: CLS : SOUND -4,-20: 
PRINT RT 10,3; INK 5; FLASH 1, 
BRIGHT 1 " O 51STE M P E IN D ET E R MIN 
fi D O ** : P P. U S E O : ST O P 
190 REM PPRE5ENTP0P' v O 
20.0 PAPER 7: BORDER 7: INK 0: C 
LS 

210 PRINT PT 4,4; PAPER 4; INK 
O; BRIGHT 1; " M P T E M ATI O 
P " 

220 PRINT PT 10,1;"ESTE PROGRPM 
P PERMITE CALCULAR PS SOLUCOES D 
E UM SISTEMA DE M INCÓGNITASP 
T 14,4; " CO <N <30j : TK-90X 1 SK": P 
PUSE 90 

230 PRINT PT 20.2; INK 0; PAPER 
S; FLASH 1; BRIGHT 1;"APERTE UM 
P TECLA PPRP COMECAR": PAUSE 0 
240 POKE 23609,50: GOTO 5 
250 PRINT PT 21,1; BRIGHT 1;"AP 
ERTE UMA TECLA PPRP CONTINUAR": 
PAUSE 0: CLS : RETURN 
999 SAUE "<CRAMER>" LINE 200 
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Criando Cones 


Marcos Lorenzi 


0 programa desenha em sua tela dois cones, onde você 
pode variar as cores, o tamanho do círculo e sua inclinação. 

Os cones são criados por meio de círculos desenhados de 
forma decrescente e uniforme. 

Há um valor limite para se definir o tamanho dos círcu¬ 
los, sendo este de 50. 


Como o programa funciona 


Variáveis: 

A: indica o número da cor do primeiro círculo; 

B: indica o número da cor do segundo círculo; 

C: indica o número da cor a ser usada para a margem; 

D: indica o número da cor a ser usada para o fundo; 

T: denota o valor do coeficiente para formato do primeiro cír¬ 
culo; 

T2: estabelece o valor do coeficiente para formato do segun¬ 
do círculo; 

I: será atribuído um fator de inclinação para formação do cone 
número um; 

12: atribui-se um valor de inclinação para desenhar o formato 
do segundo cone. 

linha 10: introduza valores para definição da cor dos círculos; 
linha 20: define a cor da margem e do fundo; 
linha 30: introduza valores para estabelecer o tamanho no qual 
será desenhado o círculo; 

linha 40: define coeficientes de inclinação para formar os 
cones; 

linha 50: imprime na tela as cores da margem e do fundo de 
acordo com o que foi definido na linha 20; 
linha 60: a partir desta linha começa a impressão na tela do 
primeiro círculo; 

linha 70: decrementa o contador que controla o desenho do 
primeiro cone e verifica o término da contagem, saltando para 
linha 100; 

linha 80: conforme o valor do coeficiente definido na linha 40, 
aumenta o raio do primeiro cone na tela, logo após verifica se 
o raio ultrapassa o limite da tela. Se isto ocorrer, o programa 
salta para linha 100; 
linha 90: o programa retorna à linha 60; 
linha 100: dá-se um valor para X mais a variável da cor do se¬ 
gundo círculo; 

linha 110: a impressão do segundo círculo na tela inicia-se 
aqui; 

linha 120: decrementa o contador que controla o desenho do 
segundo cone e finaliza o programa; 


linha 130: conforme o valor do coeficiente definido na linha 40 
decrementa o raio do segundo cone no vídeo, em seguida 
verifica se o raio ultrapassa o limite da tela. Se isto ocorrer, a 
instrução STOP é executada, 
linha 140: o programa retorna à linha 110. 


10 INPUT 11 Entre com a cor dos 
c i r cu los - 1 P;, B 

20 INPU I :! En t r e c o m a c o r d a _ m 
argei» e do fundo nesta ordem" ;C, 
D 

30 inpü t !, tn t re com o tamanho 
dos circu los ; ;Tj2 

40 INPU i :s th t re c o m a i n c l i n a c 
a o d o s c o n e s n e s t a o r d e m " ; I, 12 
50 CLS : IHK H 50RDER C: RPPE 
K D: CLS : LET X=50 
60 Ü XRCLi X : SS 7 

70 LET T =T-1: IF 7 = 1 THEN GOTO 
100 

S0 LET X = X +1 IF X > =200 THEN G 
OTO 100 

20 GOTO 50 

100 LET X =200: INK B 
110 CIRCLE X, 55,72 
120 LET 72=72-1. IF 72=1 THEN 5 
TOP 

130 LET X =X-12: IF X<=50 THEN 5 
TOP 

140 GOTO 110 
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Venha conhecer nosso show room e 
participar ativamente das mais recentes 
e revolucionárias tecnologias a respeito 
dos microcomputadores. Além de 
fazer amigos, eventualmente poderão 
descobrir o que um Microcomputador 
poderá fazer por vocês ou pela sua 
Empresa. 

Trata-se de uma perfeita e balanceada 
estrutura para representar à altura, as 
principais Empresas de Computadores 


Intellivision 



tais como: Texas, Zirok, Microdigital, 
Dactari, Polymax, Unitron, Elebra, 
Aceco, Prológica, Apple II, Savage, 
Microcraft, CMA, Phillips, Ringo, 
Matrix... 
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Uso não-convencional 
da função CIRCLE 


Usando comando CIRCLE de forma não convencional 
este programa compõe seis diferentes tipos de padrões de 
desenhos em sua tela. 

As formas geradas são parecidas com um ''mosaico" en¬ 
xadrezado, que podem ser usadas em títulos ou telas de apre¬ 
sentação, gerando bons efeitos em seu vídeo 


N/ 


Como o programa funciona 


Variáveis: 


cor; indica o número da cor a ser usada; 

raio-1: raio do círculo interno; 

raio-2: raio do círculo externo; 

ajuste-1: posicionamento horizontal para impressão; 

ajuste-2: posicionamento vertical para impressão; 

dec: indica valor do coeficiente para o formato; 

c: cor d e/oop usando os comandos FOR/NEXT; 

a,b: acumula DATA para impressão. 


Rotinas: 


linha 10: oferece, através de variáveis, a cor da margem e do 
fundo, além disto evita que a cor da margem e do fundo se¬ 
jam iguais; 

linha 20: exibe na tela as cores de acordo com o que foi defi¬ 
nido na linha 10; 

linha 30: seleciona as cores através do gerador aleatório veri¬ 
ficando se elas não são iguais; 

linha 40: o comando RESTORE "instrui" o computador a co¬ 
meçar a leitura a partir de uma DATA estabelecida, no caso na 
linha 250. Sem este comando o equipamento seria incapaz de 
procurar as DATAs para executá-las, quando o programa ro¬ 
dasse pela segunda vez; 

linha 60-70: seleciona duas figuras diferentes para formar o 
raio do círculo. Dependendo do tamanho e formato de cada 
figura, poderá haver mais do que um círculo em cada uma 
delas; 

linha 80-90: posiciona separadamente duas figuras para ajus¬ 
tá-las de acordo com a posição que serão impressas; 
linha 100: seleciona um fator para o tamanho das figuras que 
podem ser: 0, 1 ou 2; 

linha 110: é nesta linha que se inicia o loop principal do pro¬ 
grama; 

linha 120: lê as posições de impressão a partir das DATA's na 
linha 250. Quando a primeira DATA for lida, o computador 
passa para a seguinte automaticamente; 


linha 130: se o tamanho for 1 ou 2 o computador irá desenhar 
um pequeno círculo; 

linha 140: se o tamanho for 0 ou 1 o computador desenhará 
um círculo maior; 

linha 150: o INKEY$ verifica se você pressionou a palavra-cha¬ 
ve. Caso tenha, o programa pára; 

linha 160: o loop retorna à linha 110 para desenhar uma nova 
seqüência; 

linha 170-180: ocorre uma pausa na tela desenhada e em se¬ 
guida retorna para a linha 30, recomeçando tudo novamente; 
linha 250-260: nestas linhas estão definidas as coordenadas 
para a impressão das figuras. O programa lê duas de cada 
vez e as posiciona superficialmente para haver maior varieda- 
de. Veja o que acontecerá, se você alterar algumas delas. 


5 RRND 

10 LET fíi = INT C7±RND3 : LET f = IN 
7 (RND*7) : IF fn = f 7HEN GOTO 10 

20 SOR DER !ii ; PRPER í . INK 0 
30 LET COf = INT CRND±7) : IF COf 
=í THEN GOTO 3O 


40 

RESTORE 253 


50 

CLS 



60 

LET 

raio 1 = INT 

(RND *10 + 4) 

70 

LET 

f 3i0 2 = INT 

íRND *7 + 16) 

30 

LET 

aJuste1=INT CRND±3-43 

30 

LET 

a juste2 = INT £RND±43 

100 

LET 

da c=INT CRNDS3 3 

110 

FOR 

C =1 TO 23 


120 

RERD 

a b 


130 

IF áE C>3 THEN 

CIRCLE PRPER 

c o r; 

INK 

c o r a -f a. j u s 

t e1,fa+ajus te 


, r a i o 1 

i4 -0 IF dec <2 THEN CIRCLE PRPER 
5 - -í. N K c o r ; a - a. * u s t. a 1, b + s .i u s t a 4 

, r a i o 2 

IbO IF INKEY$ = :: Q " GR INKEY $ = ! ’G “ 

THEN ST DP 

160 NEXT c 

170 PRüSE 30 

130 GOTO 10 

250 DRTR 33:150,131,36:131,22,2 
03,113,107,54,59,113,173,36,33,2 
2 

260 DRTfi 107 .. 118,35,86,59,54- , 22 
7 ,22,35,150,179,150,155,54.35,22 
,179,22,131,150 : 83,86,155,118,22 
7,86,233,54,227,153 
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Periféricos, para enriquecer seu micro 


0 microcomputador pode fazer muito por sua empresa ou serviço particular. Mas 
ele poderá fazer muito mais se equipado com os periféricos adequados à necessi¬ 
dade de cada usuário. Esta reportagem irá analisar os acessórios mais usados, infor¬ 
mar quais os mais indicados para cada finalidade e orientar os usuários quanto aos 
cuidados que eles devem ter na hora de adquirir seus equipamentos. 


Solange Aparecida de Menezes 



Mário Leal, da Microway: "nós atendemos também ao usuário final" 


A rápida penetração dos microcom¬ 
putadores na vida dos profissionais libe¬ 
rais e nas pequenas, médias e grandes 
empresas tem sido assunto para diver¬ 
sos debates, seminários e simpósios, 
com a finalidade crescente de orientar 
os usuários na aquisição de seus equipa¬ 
mentos e acessórios. Os benefícios da 
automação estão atraindo um número 
cada vez maior de pessoas interessadas 
em adquirir microcomputador. No Bra¬ 
sil, até o final de 1982, estavam insta¬ 
lados cerca de 5 mil equipamentos, em 
sua maior parte em pequenas empresas. 

A simplicidade de operação e o nú¬ 
mero crescente de programas prontos, 
muitos dos quais desenvolvidos e volta¬ 
dos às pessoas com pouco ou nenhum 
conhecimento de computação, são res¬ 
ponsáveis pela constante procura de 
equipamentos de pequeno porte. O que 2 
até agora era feito manualmente ou atra- x 
vés dos serviços de um bureau, pode ser £ 
efetuado pelo próprio usuário em um õ 
microcomputador, corrigido os erros e 
armazenada as informações de forma 
simples e rápida. 

Mas o microcomputador, para am¬ 
pliar sua capacidade operacional, neces¬ 
sita de certos acessórios que, entre ou¬ 
tros benefícios, agiliza a execução do 
trabalho. Para adquirir esses acessórios, 
ou periféricos como são chamados, o 
usuário deve, antes de mais nada, co¬ 
nhecer a compatibilidade dos mesmos, 
ou seja, ao seu microcomputador. Ou¬ 
tro fator importante que deve ser leva¬ 
do em conta é a real necessidade des¬ 
ses acessórios. O usuário deve sempre 
se lembrar que nem todos os periféri¬ 
cos usados por uma empresa serve pa¬ 
ra um hobbista, por exemplo. Devido 

ao alto preço de alguns equipamentos é 
aconselhável que o usuário certifique-se 
de sua necessidade e da capacidade dos 
mesmos em relação à agilidade neces¬ 
sária para a execução de suas tarefas. 

Periféricos de entrada 

Um empresário que está com seus 


negócios em ascensão naturalmente 
precisará de um equipamento extra para 
armazenar o crescente número de infor¬ 
mações que sua empresa produz. A me¬ 
mória principal do microcomputador se 
torna diminuta em alguns casos e o 
usuário tem que recorrer a uma memó¬ 
ria adicional ou disco. 

Os discos flexíveis, ou disquetes, 
são os dispositivos mais populares. Fa¬ 
bricados em tamanhos diferentes — 5 
1/4" e 8" de diâmetro —, eles têm capa¬ 
cidade de armazenar entre 250 e 1250 mil 
caracteres, com uma velocidade maior 
que as fitas magnéticas. Mas para a lei¬ 
tura ou gravação desses disquetes, o 
usuário precisará de um equipamento 
que, acoplado ao microcomputador 
através de uma interface, fornecerá to¬ 
dos os dados armazenados no disquete. 

Os disk-drive, ou unidades de dis¬ 
co, são equipamentos pequenos e resis¬ 
tentes que executam estas leituras ou 
gravações. Um cuidado que o usuário 


deve tomar é quanto ao tamanho do 
disk-drive. Como já foi falado anterior¬ 
mente, os disquetes são apresentados 
em dois tamanhos e, conseqüentemen- 
te, existem também dois tamanhos de 
unidades de disco. 

A capacidade de leitura ou grava¬ 
ção das unidades de disco também não 
é infinita. A Unitron, por exemplo, fa¬ 
brica o Disk-Drive 5 1/4", com face e 
densidade simples, com capacidade 
para disquetes de até 143 kBytes e o 
Disk-Drive 8", com face e densidade du¬ 
plas, com capacidade para disquetes de 
até 1100 kBytes. A escolha vai depender 
da necessidade do usuário. 

Quanto ao preço, os disk-drives po¬ 
dem variar entre 72 ORTNs uma unidade 
de disco 5 1/4", e 700 ORTNs uma uni¬ 
dade dupla de disco 8". 

Monitor de vídeo 

Para extrair informações do com- 
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putador, o usuário precisará de um ter¬ 
minal de vídeo. Além de eliminar o acú¬ 
mulo de papéis, ele permite correções 
imediatas e apresenta o processo da in¬ 
formação mais rapidamente. Os moni¬ 
tores de vídeo possuem menas partes* 
mecânicas e, portanto, são mais sim¬ 
ples e mais baratos que terminais im¬ 
pressores. 

Um aparelho de televisão comum, 
acoplado ao microcomputador com a 
interface apropriada, supre a função de 
um periférico de saída de dados. Isso 
porque um televisor comum tem sinal de 
entrada igual a 4.5 MHz, o que dificulta 
o alcance de uma boa resolução gráfica. 
Um monitor de vídeo possui freqüência 
de 20 MHz além de, na maioria dos equi¬ 
pamentos, uma máscara de fósforo ver¬ 
de. Estas características possibilitam 
boa nitidez na tela e tornam o monitor 
de vídeo apropriado para profissionais. 

Os monitores apresentam ainda ou¬ 
tras características, dependendo do mo¬ 
delo. Eles podem ser monocromáticos 
(branco e preto) ou coloridos, ou apre¬ 
sentarem detalhes sofisticados como o 
monitor de vídeo Ouro, modelo MV20z, 
da CMA, que reduz ou amplia a imagem 
da tela. Essa característica auxilia os 
profissionais que trabalham com gráfi¬ 
cos, pois a junção dos pontos dá uma vi¬ 
sualização melhor ao desenho. 

Apesar do monitor de vídeo apre¬ 
sentar muitas vantagens em relação ao 
aparelho de televisão comum, seu pre¬ 
ço é um pouco pesado ao bolso do pe¬ 
queno usuário ou hobbista. O monitor 
de vídeo Ouro, da CMA, por exemplo, 
que se adapta a qualquer equipamento 
que tenha saída de vídeo composto, in¬ 
clusive a linha Apple, está custando 
atualmente no mercado 50 ORTNs. "O 
preço de um monitor", justifica Adailton 
Souza de Oliveira, assistente de marke¬ 
ting da CMA Indústria Eletrônica, "é re¬ 
lativamente maior que o valor de um te¬ 
levisor comum porque, além dos com¬ 
ponentes serem mais caros, são fabri¬ 
cados em quantidade menor, para aten¬ 
der pedidos exclusivos". 

O monitor de vídeo é recomendado 
aos profissionais não só pela sua nitidez, 
como pela capacidade da tela. Um mo¬ 
nitor comum pode apresentar simulta¬ 
neamente até 24 linhas, com 80 carac¬ 
teres cada. 

Para o empresário que se utiliza de 
vários monitores para administrar cursos 
em sua empresa, ou mesmo em reu¬ 
niões, a CMA fabrica um equipamento 
muito útil chamado derivador de vídeo. 
Nele podem ser conectados até seis mo¬ 
nitores, e as imagens aparecerão simul¬ 
taneamente, sem atenuação. Além de 
sua utilidade nas empresas, esse equi¬ 
pamento, segundo Adailton, é ideal para 
salas de aula ou locais onde várias pes¬ 
soas acompanham um mesmo trabalho. 

Impressoras 

Apesar de seu alto custo, a impres¬ 
sora é ainda o periférico mais requisi¬ 
tado. Dificilmente uma empresa, seja ela 
de qualquer porte, passará sem a neces¬ 


sidade de imprimir no papel os trabalhos 
realizados no microcomputador. E é na 
hora de adquirir seu equipamento que 
muitos usuários ficam tristes. Na eufo¬ 
ria de obter uma impressora, geralmente 
o empresário opta por um equipamento 
possante, rapidíssimo e com caracterís¬ 
ticas requintadas, mas nem sempre esse 
equipamento é o ideal para seu tipo de 
trabalho. Portanto, antes de optar, o 
usuário deve-se certificar da real neces¬ 
sidade de uma impressora e, se neces¬ 
sário, para que tipo de trabalho ela se 
destina. 

Uma observação que deve ficar 
bem clara é que quanto mais veloz for a 
impressora, maior será o seu preço. As¬ 
sim, para as empresas que necessitam 
de algumas cartas ou relatórios diários, 
o ideal é se valer das tradicionais máqui¬ 
nas de escrever. Para as empresas que 
produzem um trabalho volumoso e repe¬ 
titivo, mas que não dependem do fator 
tempo, o ideal serão as impressoras 
mais simples, mais lentas, mas, em 
compensação, com preços mais acessí¬ 
veis. O melhor é deixar os equipamentos 
mais possantes, ou os que possuem im¬ 
pressão de alta qualidade, para as em¬ 
presas que exigem maior rapidez no tra¬ 
balho, ou melhor acabamento de im¬ 
pressão. 

Características das Impressoras 

Para se decidir na escolha do equi¬ 
pamento, o usuário deve-se guiar pela 
sua capacidade e recursos oferecidos. É 
aconselhável fazer um levantamento de 
todos os serviços diários impressos da 
empresa, para fazer uma escolha certa. 
Além disso é indispensável um breve 
conhecimento dos tipos de impressoras 
existentes no mercado, para optar sem 
receios. 

Para orientar o usuário podemos 



Leandro, de Hengesystems: 
"investindo em interfaces" 


informar que as impressoras são clas¬ 
sificadas em de impacto e não-impacto. 
Na segunda classificação estão incluí¬ 
das as impressoras térmicas, eletrostá¬ 
ticas, lazer e de injeção de tinta, cuja im¬ 
pressão é conseguida sem contato me¬ 
cânico. Essas impressoras são muito ra¬ 
ras, devido a seu preço elevado e fragi¬ 
lidade. Apresentam ainda outras des¬ 
vantagens, pois não imprimem com có¬ 
pias e o papel de impressão usado é mui¬ 
to caro, além de escasso no mercado. 

As impressoras de impacto podem 
ser lineares — imprimem as linhas de 
uma só vez — ou seriais — que impri¬ 
mem os caracteres um a um, em série. 
Essas últimas são as mais populares, e 
são divididas em matriz de pontos e mar¬ 
garida. 

As impressoras matriciais, ou de 
matriz de pontos, são formadas por um 


Logo a seguir fornecemos uma relação de alguns periféricos existentes no mercado. As in¬ 
formações a respeito dos mesmos foram enviadas pelas empresas e, muitas não nos respon 
deram a tempo de colocarmos as características de seus produtos nesta edição. 


INTERFACES 

— Para os micros compatíveis ao Apple, a PSI — Projetos e Serviços em Informática 
desenvolveu o PSI-MC, um dispositivo que permite o controle automático de aparelhos ele- 
tro-domésticos por micros. Seu preço está em torno de 150 ORTNs. 

— A Hengesystems possue diversas interfaces compatíveis ao Apple. Entre estas estão: 
Serial + e Super Serial (RS-232 C para uso geral e para ligação de modens e teleimpressor); Dis¬ 
co 2 (controla até dois discos 5 1/4"); Lettera + com caracteres gráficos e tipográficos); Soft- 
card Z-80 para uso do sistema CP/M, entre outras. Seus preços variam entre 16 a 72 ORTNs. 

— Também compatível ao Apple, a Spectrum tem a interface-modem que elimina o uso do 
modem externo e incorpora interface de comunicação serial. O seu preço não foi fornecido pelo 
fabricante. 

— Compatível ao Apple, a Unitron possui as seguintes interfaces: PAL-M (com modula- 
dor de RF incorporada); CP/M (Z-80 — permite a compatibilização com o sistema operacional 
CP/M versão 2.2); D4/8 (controla até 4 disk-drives de 8"). Seus preços estão em torno de 15 a 
79 ORTNs. 

— Para os seus microcomputadores TK —83 e TK—85 a Microdigital Eletrônica possue a 
Paraller Interface que permite a ligação destes micros com impressoras do padrão Centronics. 
Para os micros TK-2000, além de interface RS 232 C, existe também a interface para Floppy 
Disk (5 1/4"). Seus preços estão em torno de 10 ORTNs. 

A Elebra possui interfaces serial buffer M06000-SB, que transforma a interface paralela da 
Mônica (6010 ou 6030) em serial padrão RS-323 C e acrescenta até 8 kBytes de buffer. Está 
disponível para os usuários pela rede nacional de serviços da empresa. 
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alinhamento de agulhas que tocam o 
papel quando acionado. Elas são mais 
procuradas que as margaridas, pois sua 
velocidade varia entre 100 e 200 CPS e, 
portanto, são apreciadas pela maioria 
dos profissionais que necessitam de um 
trabalho relativamente rápido. Atual¬ 
mente já existem no mercado impres¬ 
soras matriciais mais valozes, como a 
MT-250L e a MT-440L, da Elgin, com 
250 e 400 cps, respectivamente. 

As impressoras de margarida fun¬ 
cionam com o mesmo processo das 
"cebelas" das máquinas de escrever 
IBM, ou seja, uma peça impressora na 
formato da flor que lhe dá o nome car¬ 
rega nas 'pétalas' os caracteres a serem 
impressos no papel. Um exemplo des¬ 
sas impressoras é a Anita, da Racimec, 
que será brevemente lançada no mer¬ 
cado. 

Essas impressoras são bem mais 
lentas — a Anita, por exemplo, tem ve¬ 
locidade de 18 caracteres por segundo 
—, mas em compensação produzem 
um efeito igual ao das máquinas de es¬ 
crever elétricas. Por esse motivo são 
mais indicadas aos usuários que traba¬ 
lham com malas-diretas ou grande volu¬ 
me de cartas personalizadas e precisam 
de uma impressão com melhor acaba¬ 
mento. 

Existem certas características nas 
impressoras matriciais modernas que 
devem ser consideradas pelo usuário na 
hora da compra de seu equipamento. 
Uma delas é a impressão bidirecional 
que permite a impressão de uma linha da 
esquerda para a direita e a próxima no 
sentido contrário, evitando o tempo 
gasto com a volta da 'cabeça impres¬ 
sora'. A capacidade de memória é outro 
fator preponderante para a agilidade da 
impressora, pois quanto mais informa¬ 
ções forem armazenadas, mais rápida 
será a impressão. Na procura lógica, o 
aparelho impressor vai direto ao próxi¬ 


mo ponto do trabalho, sem passar pe¬ 
los espaços em branco do texto. 

O usuário deve analisar se a impres¬ 
sora de seu interesse oferece todas as 
características que seu trabalho exige. 
Por exemplo, para uma empresa que 
necessita da impressão de textos e car¬ 
tas, o usuário deve se certificar de que a 
impressora possui todos os caracteres 
gráficos em português (de acordo com a 
exigência da Abicomp) e caracteres 
maiúsculos e minúsculos. Para o usuá¬ 
rio que trabalha com gráficos ou dese¬ 
nhos, a impressora deve dispor de ca¬ 
racteres para esse fim. 

Para os empresários que dispõem 
de uma verba maior e precisam de um 
perfeito acabamento nas cartas e textos 
existe ainda a opção pelas máquinas de 
escrever eletrônicas. Elas, acopladas ao 
microcomputador, produzem efeitos 
melhores que as impressoras margari¬ 
das, mas são desaconselháveis aos pe¬ 
quenos e médios usuários e hobbistas 
pelo seu alto preço (mais de 1000 
ORTNs). Para aqueles que já possuem a 
máquina, resta apenas a aquisição de 
uma interface de comunicação, que vai 
codificar os dados da CPU e transmiti¬ 
dos à máquina. Esse equipamento apre¬ 
senta baixa velocidade — aproximada¬ 
mente 15 cps mas tem ótima qualidade 
de impressão. 

Buffer de memória 

Para um perfeito ajustamento da 
impressora ao microcomputador, o 
usuário deve-se munir de outros equipa¬ 
mentos periféricos que, além de compa¬ 
tibilizar a impressora ao tipo de micro¬ 
computador usado, podem aumentar a 
capacidade da impressora. Um desses 
periféricos são as interfaces de impres¬ 
soras que determinam a compatibilidade 
entre os equipamentos. Mas o que pode 
ser de grande importância às empresas 


que necessitem de agilidade no traba¬ 
lho é o buffer. 

Toda impressora possui uma me¬ 
mória própria capaz de armazenar até 2 
kBytes. Como o computador é geral¬ 
mente mais rápido que a impressora, há 
a necessidade de uma memória adicio¬ 
nal capaz de armazenar muito mais in¬ 
formações e, portanto, agilizar o servi¬ 
ço. O buffer é justamente esta memória 
extra, que armazena uma certa quanti¬ 
dade de bits que serão impressos no 
papel, liberando o computador para 
prosseguir com o programa. Quanto 
maior a capacidade de armazenamento 
do buffer, mais rápido será o processo. 
Atualmente já existem no mercado buf- 
fers de até 64 kBytes. 


Papel de impressão 

O usuário deve observar também o 
tipo de papel usado pela impressora que 
vai adquirir, pois algumas delas traba¬ 
lham com tipos específicos. Dos três ti¬ 
pos de papel disponíveis no mercado 
— formulário contínuo, bobinas e folhas 
soltas — o usuário deve saber o que 
mais se adapta ao seu tipo de serviço. 
As impressoras que trabalham com fo¬ 
lhas soltas são ideais para impressão de 
cartas e textos, pois aceitam papéis tim¬ 
brados, envelopes e folhas de tamanhos 
diversos. O usuário não deve deixar de 
observar também, quantas cópias a im¬ 
pressora é capaz de emitir. Seria muito 
constrangedor uma firma de contabili¬ 
dade adquirir uma impressora e depois 
descobrir que seus formulários de pres¬ 
tações de contas não terão segundas e 
terceiras vias. 


Preço — o problema principal 
das impressoras 

Apesar de muito requisitadas, as 
impressoras ainda estão entre os peri¬ 
féricos mais caros do mercado, supe¬ 
rando, muitas vezes, o preço de alguns 
microcomputadores. O custo desses 
equipamentos se deve a vários fatores. 
Alguns componentes utilizados não têm 
similares nacionais (ship de memória e 
transistores) e há necessidade de impor¬ 
tá-los. 

"Mas não é a importação que en¬ 
carece o produto", diz Álvaro Alves de 
Moraes, gerente de marketing da Raci¬ 
mec. "O preço das impressoras é alto 
devido o desenvolvimento de uma me¬ 
cânica fina". Segundo ele, o menor cus¬ 
to é o da eletrônica e a parte importada 
corresponde há aproximadamente 2% 
do preço final do produto. Essa opinião 
é compartilhada por Henrique Sá Morei¬ 
ra de Oliveira, assistente comercial da 
Unitron. "Os equipamentos são caros 
por causa da complexidade e do alto 
custo dos materiais empregados". 

Cristina Pedro, assistente de mar¬ 
keting da Elgin, não considera alto o va¬ 
lor das impressoras. Para ela, o preço 
final dos equipamentos corresponde ao 
seu custo, inclusive os impostos. 


GRAVADORES 

— Para a linha Apple, a Microway possue o gravador de memória MW-27, com um visor de 
dados de quatro dígitos para endereço, dois dígitos para dados, entre outras características. 
Possui também o MW-8 para gravação com larga escala. O fabricante não forneceu os preços 
dos produtos. 

— Para os TK-83 e TK-85 a Microdigital possui o Gravador de EPROM (utilizado para 
memórias semicondutoras com capacidade de armazenar 2 kBytes de informação) e de som. 
Seus preços giram em torno de 7 ORTNs. 

FILTRO DE LINHA 

— Um periférico desenvolvido pela Zentranx com o intuito de permitir a exclusividade de 
tensão para 110 e 200 V, contra picos de voltagem, transientes de tensão, ruído elétrico, inter¬ 
ferência (RF). Seu preço está em torno de 7 ORTNs. 

APAGADOR DE MEMÓRIA 

— Fabricado pela Microway o MW-25 permite apagar até 25 memórias de cada vez, com 
lâmpada ultra-violeta e chave interna de segurança. O fabricante não forneceu o seu preço. 

DISK DRIVES 

— São fabricados por diversas empresas. As que nos forneceram informações a respeito 
foram, a GEM Informática, sobre seus produtos MEMOS 5, 10 e 15, com capacidade de 5, 10 e 
15 Megabytes respectivamente. Não foram fornecidos os preços dos mesmos. 

— A Unitron fabrica também disk-drives. O produto chama-se UD-5 e permite gravação 
em 40 trilhas (20 kBytes adicionais), com capacidade de disco de 250 e 163 kBytes. Seu preço 
gira em torno de 65 ORTNs. 
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Na verdade, 40% do custo final de 
uma impressora equivale aos impostos 
(ICM, IPI, PIS, Finsocial, etc.), que são 
repassados ao usuário. E foi pensando 
nisso que a Racimec lançou no merca¬ 
do, em maio, as impressoras Ita e Carla, 
que são vendidas diretamente ao consu¬ 
midor final. "A venda direta", explica 
Álvaro Alves, "diminui o custo final do 
produto porque não inclui o lucro da re¬ 
venda". 

Mesmo assim, o preço das impres¬ 
soras continuam superior ao valor dos 
micros de pequeno porte. "A única for¬ 
ma de baratear um periférico é produ¬ 
zindo em alta escala", sentencia Álvaro 
Moraes. "Quanto mais se vende um 
produto, menor se torna o seu preço", 
conclui. Essa observação é comparti¬ 
lhada com outros representantes de em¬ 
presas produtoras de periféricos. Na opi¬ 
nião deles, as dimensões do mercado 
são ainda pequenas e, conseqüente- 
mente, a baixa escala de produção tor¬ 
na difícil a redução do preço final do pro¬ 
duto e retarda ainda mais a sua total 
nacionalização. 

Manutenção e assistência técnica 

Tão importante quanto observar as 
características técnicas do equipamento 
é conhecer previamente o tempo de vida 
da impressora, ou seja, o período de uso 
sem necessidade de manutenção. Os 
usuários devem observar também, por 
quem é feita a assistência técnica e qual 
o prazo de garantia do produto. Outro 
fator importante é observar ond* é feits 
a assistência técnica, pois ninguém está 
livre de comprar um equipamento e, 
quando necessitar de manutenção, des¬ 
cobrir que o único ponto de assistência 
técnica se encontra no interior ou em 
outro Estado. 

Interface e Placas de expansão 

Todas as vezes que um microcom¬ 
putador necessitar de outros aparelhos 
para melhorar o seu desempenho ou 
então suprir a exigência de ampliação da 
necessidade de sua memória será preci¬ 
so o uso de interfaces ou de placas de 
expansão de memória. Para acessar um 
disk-drive, impressora, CP/M, ou para 
mudar o padrão de vídeo (80x24), o 
usuário precisará de uma interface apro¬ 
priada para cada caso. 

Segundo informações de Henrique 
Oliveira, as interfaces mais procuradas 
são as controladoras de disco (D4/8 — 
que controla até quatro disk-drives de 8" 
e a Dll — que controla até duas unida¬ 
des de disco de 5 1/4"); paralelas para 
impressoras; expansões de memória de 
16k e 32k; módulos Z-80, que permitem 
utilização de Sistema Operacional CP/ 
Meo módulo 80 colunas, que muda o 
padrão do vídeo. 

"O mercado está se tornando mais 
profissional", comenta Henrique ao se 
referir ao desenvolvimento do mercado 
de periféricos. "Mesmo um pequeno 
empresário ou hobbista, de acordo com 
seu desenvolvimento, terá cada vez 


mais necessidade de adquirir periféri¬ 
cos". 

A preocupação com esta fatia do 
mercado atingiu também a Hengesys- 
tems Engenharia de Sistemas. Entre as 
interfaces de sua fabricação, o equipa¬ 
mento de destaque é o Vídeo Switch 
que, usado juntamente com a interface 
de expansão de vídeo — Vídeo 80 — 
amplia automaticamente, através do te¬ 
clado ou do próprio programa, o espaço 
no vídeo. 

Com o crescente interesse de usuá¬ 
rios pelos bancos de dados e o sistema 
videotexto, a Hengesystems criou tam¬ 
bém o Kit Videotexto. Segundo infor¬ 
mações de Leandro Francisco Brandão, 
gerente industrial da empresa, esse kit é 
formado por interface serial, com mo¬ 
dem e software em disco (preto e 
branco ou em cores), para videotexto. 

Para aumentar a capacidade de me¬ 
mória do computador, o usuário pode 
utilizar uma placa de expansão de me¬ 
mória. A capacidade dessas placas va¬ 
riam de acordo com o equipamento. Um 
computador com capacidade própria de 
64K como, por exemplo, o TK 2000, po¬ 
de chegar a 128K de memória com a aju¬ 
da da placa de expansão. E outro com¬ 
putador com menor capacidade, como o 
TK-85, dispõe de expansões de 16, 64 e 
48 kBytes e do gravador de EPROM fa¬ 
bricado pela Microdigital. 

Para o TK-85 a Microdigital tem a 
interface Parallen Printer que permite à 
conexão do micro com qualquer impres¬ 
sora paralela disponível no mercado. 
Quanto ao TK-2000 há conexão direta 
com a impressora. Para eleja existe a in¬ 
terface PS 232 que o interliga ao Ciran- 
dão. 

Mas se o usuário for uma grande 
empresa e precisa modificar a gravação 
da memória de seu equipamento, a Mi- 
croway Tecnologia Eletrônica dá essa 
possibilidade. Essa empresa desenvolve 
o gravador de memória Eprom-Prom, 


que permite comunicação com a maior 
parte dos microcomputadores nacio¬ 
nais, inclusive o Apple, via interface RS 
232. "Nossos clientes são os fabricantes 
de computadores e equipamentos de 
automação", diz Mário Leal Filho, dire¬ 
tor da empresa, "mas nós também aten¬ 
demos o usuário final que necessite mo¬ 
dificar a gravação da memória de seu 
equipamento". 

Quanto ao preço dessas interfaces 
e placas de expansão, podem variar en¬ 
tre seis ORTNs (Video Switch da Hen¬ 
gesystems) e 72 ORTNs (Kit Videotexto, 
da Hengesystems). O usuário deve-se 
certificar da compatibilidade das inter¬ 
faces com seu equipamento. Nem todas 
as interfaces disponíveis no mercado 
são compatíveis com o microcomputa¬ 
dor em uso. 

Modem 

Com o desenvolvimento de bancos 
de dados e, mais recentemente, com a 
exploração comercial do sistema video¬ 
texto no Brasil, o microcomputador ga¬ 
nhou mais uma função. Através dele, o 
usuário pode acessar bancos de dados 
de empresas estatais detentoras do ser¬ 
viço, interligar-se a outros micros, utili¬ 
zando para isto, além de um aparelho te¬ 
lefônico, um modem. 

Com o mesmo cuidado para esco¬ 
lher os demais periféricos, o usuário 
deve observar alguns detalhes na hora 
de escolher seu modem. Como observa 
Adailton Souza de Oliveira, assistente 
de marketing, da CMA, para se acoplar 
um modem ao micro interligando-o à 
linha telefônica, ele tem que estar den¬ 
tro das normas de utilização das linhas 
da Telebrás e ser aprovado pela SEI. 
Antes de adquirir o aparelho, o usuário 
deve observar esses detalhes, pois, ca¬ 
so contrário, ele estará sujeito ao im¬ 
pedimento de acesso aos bancos de 
dados. 


IMPRESSORAS 

— A Scritta Eletrônica possue dois modelos de impressoras. A Grafix MX80 (de impres¬ 
são paralela por matriz de pontos, velocidade de 100 cps) e a Grafix MX100 com impressão 
paralela por matriz de pontos, velocidade de 100 cps. Os preços das mesmas estão em 160 e 280 
ORTNs respectivamente. São compatíveis aos micros Apple. 

— Outro fabricante de impressoras é a Polymax. Ela possue a Poliprint 200 (200 cps, 
bidirecional, buffer interno de 64 kBytes e a QUME, tipo margarida, 55 cps). Seus preços são de 
400 e 1400 ORTNs respectivamente. 

— A Racimec possui quatro modelos de impressoras: a ITA (bidirecional, 100 cps, 120 cps 
e 132 caracteres por linha); a CARLA (bidirecional, 120 cps, 180 cps e 40 caracteres por linha); a 
ANITA (monodirecional, margarida, 18 cps, escreve em negrito, 132 caracteres por linha). Seus 
preços são, respectivamente, 170, 160 e 90 ORTNs. 

— A Elgin possue diversos modelos de impressoras. A que mais se adapta ao usuário dos 
micros Apple é a Elgin Lady, 100 cps, bidirecional, matriz 9X7, caracteres semigráficos, cabeça 
de agulhas. Existem também outros modelos como a MT-140 L (160 cps, matriz 9 X 7), a MT 
140 I, a MT 200 L, entre outras. Seus preços não foram fornecidos pela empresa. 

A Elebra possue vários modelos de impressoras. A Mônica (6010, 6030), a Emília (8035) e a 
Alice (9051), com qualidade carta, buffer de 8 K, 100 CPS, 180 CPS e 250 CPS respectiva¬ 
mente. Estas impressoras são compatíveis com o TK-2000. Estão disponíveis aos usuários 
através dos sistemas O 8- M e pela revenda da Elebra. 

EXPANSÕES DE MEMÓRIA 

— Para o TK-85 existem expansões de 16, 48 e 64 K de RAM, fabricadas pela Microdigital 
Eletrônica. O preço das mesmas variam entre 7 e 12 ORTNs. 

— Para os microcomputadores compatíveis como o Apple, a Unitron possue as expan¬ 
sões de 16 K, 32 K, 64 K e 128 K, com possibilidade de simulação de disk-drives de alta 
velocidade. Seus preços variam entre 14 a 47 ORTNs. _ 
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Álvaro, da Racimec: 

"testes longos e modelos resistentes" 


transmitir informações, mas não poderá 
recebê-las. 

Segundo Adailton, aproximada¬ 
mente 90% doc componentes dos mo¬ 
dems da CMA são nacionalizados e seu 
preço está por volta de 22 ORTNs. Além 
do Á217CT, que é um modem mais sim¬ 
plificado e ideal para pequenos usuários, 
a CMA tem também o modelo A 230, 
que é um pouco mais sofisticado, com 
indicadores no painel para informar os 
dados recebidos e transmitidos e detec- 
tação de portadora. 

Adailton lembra também que, para 
o funcionamento de um modem, o 
usuário precisa de uma placa interface e 
um software de comunicação específica 
ao banco de dados que se deseja aces¬ 
sar. Sua instalação pode ser feita pelo 
próprio usuário, portanto, é bom se ve¬ 
rificar se o manual de instrução acom¬ 
panha o equipamento que se deseja 
comprar. 


Outra característica a ser observa¬ 
da é quanto à compatibilidade. Todos os 
modems nacionais, dentro do mesmo 
padrão, devem ser compatíveis entre sí. 
Todas as velocidades dos modems tam¬ 
bém são padronizadas pela CCITT — 
padrão europeu. Quanto maior a distân¬ 
cia entre o modem e a fonte de informa¬ 
ção, maior tem que ser a velocidade de 
transmissão, para baratear o custo. 

A velocidade é o fator fundamental 
para se obter um bom serviço a baixos 
custos. Adailton explica que os modems 
mais populares para acessar banco de 
dados são aqueles que possuem taxa de 
modulação de 75 bit/segundos e demo- 
dulação de 1200 bit/s. ''Essesmodems", 
diz ele, "recebem informações com 
maior rapidez (1200 bit/s) e transmitem 
mais lentamente (75 bit/s). Esse proces¬ 
so faz com que a conta telefônica se tor¬ 
ne mais barata". 

A única desvantagem dos modems 
com essa velocidade é que qles não po¬ 
dem acessar micros que possuam mo¬ 
dems do mesmo tipo. È o caso de mo¬ 
dem A217CT, da CMA, que possui taxa 
de freqüência 1200/75 bit/s. Essa comu¬ 
nicação modem-modem só poderá ser 
feita quando as taxas de modulação e 
demodulação forem iguais (300/300 bit/ 
s, por exemplo). Portanto, o usuário que 
pretende adquirir um modem para tro¬ 
cas de informações entre empresas ou 
amigos, deve-se certificar se os modems 
utilizados são compatíveis entre sí, pois, 
caso contrário, haverá casos onde um 
microcomputador estará apto para 


Precauções que prolongam a vida 
dos equipamentos 

Além das instruções que acompa¬ 
nham todos os equipamentos periféricos 
o usuário deve observar algumas regri- 
nhas indispensáveis para evitar futuras 
dores de cabeça. Principalmente quanto 
a assistência técnica. Seja qual for o 
equipamento adquirido é fundamental a 
presença de uma firma autorizada para 
dar assistência técnica na cidade do 
usuário. Em alguns casos pode-se assi¬ 
nar um contrato de serviços de manu¬ 
tenção, o que evita o trabalho de pro¬ 
curar os postos de atendimento toda vez 
que o usuário julgar necessário. 

Se a empresa está localizada em um 
local onde há variações na transmissão 
de energia elétrica, é aconselhável o 
usuário adquirir um filtro de linha, isto é, 
um aparelho que filtra todas as impure¬ 
zas e interferências da corrente elétrica, 
evitando problemas na CPU. Além de 
útil, esse aparelho não é caro. O filtro de 
linha da Zentran está custando atual¬ 
mente de 6 a 7 ORTNs. 

O usuário deve observar também o 
grau de confiabilidade do equipamento 
adquirido. Se ele tiver que enfrentar 
uma luta diária muito dura, deve-se veri¬ 
ficar se o equipamento tem estrutura 
forte para isso (principalmente impres¬ 
soras). São tópicos que geralmente não 
são observados, mas se o usuário levá- 
los em conta, certamente terá um traba¬ 
lho rendoso e tranqüilo. 


MONITOR DE VÍDEO 

— O monitor de vídeo ATS-2000 é fabricado pela ATS-Angra Tecnologia, e seu preço é 
de 48 ORTNs. A CMA tem o Ouro MV20Z, fósforo verde, 12" ao preço de 20 ORTNs. A Instrum 
possue oM14CeoM12 0 primeiro cromático, vídeo composto, alfanumérico, com preço que 
varia de 97 a 420 ORTNs. O segundo, monocromático, tem preço que varia de 60 a 75 ORTNs. 
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No último número, vimos como fazer a análise de circui¬ 
tos constituídos exclusivamente de resistores e fontes inde¬ 
pendentes de corrente. Veremos agora duas extensões da 
análise nodal que permitirão incluir no circuito, geradores 
ideais de tensão e gerador vinculados. 


Repare que a matriz dos coeficientes é uma extensão da 
matriz de condutâncias nodais. 

Exemplo Numérico 

Vamos analisar o circuito já visto para os seguintes valo¬ 
res de condutância e fontes: 

G, = 10 
G 2 = 5 
= 2 
i s ; = i 


Inclusão de geradores ideais de Tensão 

Se tivermos um gerador ideal de tensão ligado a um dos 
nós da rede, então a corrente no remo do gerador deve ser 
considerada como uma nova incógnita. Como exemplo, con¬ 
sidere o circuito abaixo: 



nó 1: {Gi + G 2 ) ei — G 2 e 2 + i E — i s i 
nó 2: — G 2 e } + (G 2 4* G3) e 2 — Íe = i $2 

temos então 3 incógnitas (e,, e 2 , i E ) e por enquanto apenas 2 
equações. A terceira equação vem da relação das tensões no 
ramo do gerador de tensão: 

e, — e 2 = E 

Combinando essas três equações e reescrevendo-as na 
forma matricial, obtemos: 



Reescrevendo o sistema de equações na forma matricial, 
obtemos: 
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Como antes, utilizemos agora o MATRIX 
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A 2,1 = ? 

-5 

R/S 


A 2,2 = ? 

7 

R/S 


A2,3 = ? 

-1 

R/S 


A 3,1 = ? 

1 

R/S 


A 3,2 = ? 

-1 

R/S 


A 3,3 = ? 

0 

R/S 


XEQ 

BI = ? 

SIMEQ 

1 


R/S 

B2 = ? 

2 


R/S 

B3 = ? 

5 


R/S 

R/S 

XI = 

1.0833 


(e,) 

R/S 

X2 = 

-3.9167 


<e,) 

R/S 

X3 = 

-34.8333 


«e> 


Ipclusão de gerador vinculado 

Diferente de um gerador independente, cuja tensão ou 
corrente é conhecida a priori, a tensão ou corrente de um ge¬ 
rador vinculado é controlada por alguma tensão ou corrente 
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no circuito. 

Existem, obviamente, quatro tipos de geradores vincu¬ 
lados: 


(G, + G 2 ) e, — G 2 e 2 = i s1 

G 2 e<\ + (G 2 + G 3 4- G 4 ) e 2 — G 4 e 3 = BG 2 (e } — e 2 ) 


1. Fonte (ideal) de tensão controlada por tensão (FVCV) 


G 4 e 2 — (G 4 4- G 5 ) e 3 — — BG 2 (e-, — e 2 ) 



2. Fonte (ideal) de tensão controlada por corrente (FVCI) 



3. Fonte (ideal) de corrente controlada por tensão (FICV) 



4. Fonte (ideal) de corrente controlada por corrente (FICO 



Tratamos um circuito com geradores vinculados do se¬ 
guinte modo: 

1. Os geradores vinculados são tratados inicialmente como se 
fossem independentes. 

2. Escreve-se as correntes ou tensões de controle em função 
das tensões nodais, substituindo nas equações de rede. 



Vamos escrever as equações nodais do circuito como se o 
gerador vinculado fosse independente: 


(Bi 4 - G 2 —G 2 0 


e i 


Ui 

— G 2 G2 4- Gs 4* G 4 —G 4 


e 2 

= 

b* 

0 — G 4 G 4 4- G 5 


e 3 


B ' 2 _ 


ou seja: 

(Gi + G 2 ) e, — G 2 e 2 


reagrupando: 

(Gi 4- G 2 ) e! — G 2 e 2 = isi 

— G 2 e 1 (1 4- B) = (G 2 (1 -i- B) 4- G 3 4* G 4 ) e 2 — G 4 e 3 = 0 


BG 2 e 1 — (BG 2 4* G 4 ) e 2 4 - (G 4 4- G 5 ) e 3 = 0 


recolocando na forma matricial: 


Gt 4- G 2 — G 2 

0 



Ui 

-G 2 (1 + B) G 2 (1 + B) + G 3 G 4 

— G4 

e 2 

= 

0 

bg 2 — bg 2 — g 4 

G 4 + Gç^ 

e 3 


0 


Com a prática você poderá facilmente fazer as substitui¬ 
ções diretamente na forma matricial. 

Repare que a matriz de condutâncias nodais não é mais 
simétrica, e que a solução única do sistema não é mais garan¬ 
tida para qualquer valor de B. 

Para ilustrar, vamos fazer a análise do circuito com os se¬ 
guintes valores: 



A matriz de condutâncias nodais fica: 


20 -10 0 


e 


5 

-20 27 -2 


e 

= 

0 

10 -12 4 


e 


0 


XEQ 

MATRIX 


order = ? 

3 

R/S 

A 1,1 = ? 

20 

R/S 

A 1,2 = ? 

-10 

R/S 

A 1,3 = ? 

0 

R/S 

A 2,1 = ? 

-20 

R/S 

A 2,2 = ? 

27 

R/S 

A 2,3 = ? 

-2 

R/S 

A 3,1 = ? 

10 

R/S 

A 3,2 = ? 

-12 

R/S 

A 3,3 = ? 

4 

R/S 


XEQ 

SIMEQ 


BI = ? 

5 

R/S 

B2 = ? 

0 

R/S 

B3 = ? 

0 

R/S 

R/S 

XI = 0.3889 


(e,) 

R/S 

X2 = 0.2778 


(e 3 ) 

R/S 

<3 = -0.1389 


(e 3 ) 


— G 2 e-j 4- (G 2 4* G 3 4- G 4 ) e 2 — G 4 . e 3 = Bj 2 


— G 4 e 2 4- (G 4 4- G 5 ) e 3 = — Bj 2 

mas j 2 = (G 2 (e-, — e 2 ), substituindo no sistema anterior: 


Bigliografia: "A Análise Nodal e Suas Variantes " — Lu is Q. 
Orsini, 1984. 
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As Quatro Fases de um Programa 

Chen Wei Chow 
Licciardi Jr. 


Este artigo visa não apenas os iniciantes 
mas também àqueles que já começam a lidar com 
Linguagem de Máquina. Para isto apresentamos 
três programas curtíssimos, onde o mais importante 
será a estrutura do programa, além de um em 
Linguagem de Máquina. 

Os programas deste artigo mostram a evolução, 
em velocidade e estrutura, de um certo jogo, no caso 
o "Rally". Nos três primeiros jogos, esforçamo-nos 
para ocupar o mínimo de memória e linhas de 
programa, sem torná-los rebuscados demais (o uso 
excessivo de funções VAL e outros truques 
atrapalham a leitura e entendimento do programa). 
Deste modo, o usuário de um TK-83 ou TK-82 C 
sem expansão poderá digitá-los e a depuração dos 
programas será facilitada. Portanto, para conseguir 
um jogo completo, sua criatividade deverá ser posta 
à mostra: modifique os programas como quiser, 
mas primeiramente tente entendê-los. Isto é 
fundamental! 


GAME A 


5 SPUE "GRME g** 

10 DIM P i 15) 

15 LET P = 4 
20 FOR N =0 TO 50 
25 FOR 1=1 TO is 

30 LET P(I)= INT Cl*RNO*73 

31 LET p* = *‘| 1 

32 LET HalH(I) tl) = :: . ; 

35 LET L = ü INKEY$ =3 !l 3 - CINKEY$ = 


40 LET P =PtL 
45 SOROLL 


b0 PRINT Pê; PT 5 .P-L; " s: : hT 

P 


55 IF P<1 GR 
1 + 1 3 / 15 3 3 OR P 
50 NEXT I 
55 NEXT N 
70 PRINT PT 


P=P(I+1-15*INT 
7 ThEH GOTO 75 


3 : li 


II 


SHHQU 


C ( 


II 


75 PRINT PT 5 s 12;"PONTOS: M ;15 
+N +1 


Como é, entendeu? Se você não teve um pouco de ima¬ 
ginação ou tentou decifrar o programa (o que deve ter acon¬ 
tecido . . .), provavelmente não. 

Como o programa é pequeno (minúsculo, tem 435 bytes), 
nós o explicaremos linha por linha: 


TABELA 1 


Linha 

Comentário 

05 

Utiliza o SAVE para auto-start (para maiores de¬ 
talhes veja Microhobby n°. 1) 

10 

Inicializa as variáveis A(l) . A(l), onde 1 £ N e 

0 < 1 < 16, é a variável que guarda a posição 
(coluna) do buraco 

15 

Posiciona o veículo para o início da corrida. P é a 
variável que contém a coluna do carrinho 

20 

Neste loop determinamos a extensão da pista 

25 

Este segundo loop executa a "rotação" dos bu¬ 
racos 
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30 

Determina a posição aleatória do buraco AID, 
onde A(l) £ NeO < A(l) <8 

31 

"Limpa" e define a nova parte da pista a ser im- 

32 

pressd 

Buraco correspondente ao novo pedaço da pista 

35 

Toma leitura do teclado determinando a variação 
de posição ( — 1,0, + 1). L é uma variável auxiliar 

40 

Modifica a posição do veículo (P) 

45 

o comando SCROLL, rolando a tela, é que dá o 
efeito de movimento 

50 

Imprime a parte inferior da pista, com o buraco 
correspondente, o veículo em sua nova posição 
e um espaço na antiga posição do mesmo, dando 
o efeito de apagar 

55 

Verifica se o veículo se chocou contra a pista ou 
caiu num buraco. Se alguma dessas condições 
não for seguida, vai para a linha 75 

60/65 

Fins dos loops 

70 

Caso tenha passado pela pista toda, ou seja, 
quando os loops tiverem terminado, indica que 
ganhou 

75 

Indica o término da corrida, mostrando os pontos 
ou quilômetros percorridos. Para reiniciar é só en¬ 
trar com RUN 9 


0 segredo do programa está na equação: 


I' = I + 1 —15x INT((I + D/16) 

Acontece que no rolamento das variáveis, a equação aci¬ 
ma relaciona o valor do I que está correndo no programa com 
o valor do I' que está na mesma linha do veículo. 

Exemplificando: 

Suponhemos que num dado instante do programa te¬ 
nhamos: 


1 = 3 l' = 4 



Após mais um ciclo, e naturalmente mais um SCROLL, 
teremos: 






(colunas) 













— 




0 

1 

2 

3 

4 

5 

6 

7 

8 














0 


• 





















1 




• 



















2 






• 




I 













3 







• 




resíduos 









4 
















1 = 4 

í=*r 

■ — j 

5 


5 






• 

















6 








• 















7 





U 


• 




A(5) 

= A (D 








8 


• 









A( 6 ) 










■”«/> 

9 



• 








A(7) 










-C 

. c 

10 




• 






> 

A( 8 ) 











11 






• 

















12 






• 

















13 





• 


















14 





• 


















15 





• 






A(13) 










16 






• 




•H* 

A( 14) 

l 










17 







• 




A(i5; 

> 










18 


• 









A(1) 











19 



• 








A(2) 










1 

20 




• 







A(3) 











21 





• 





—í> 

A(4), mas com novo valor 



= AM 


Quando o buraco A(I) está sendo impresso, o buraco 
AO') está na mesma linha do veículo. Assim, se a coluna de 
AO') for a mesma do veículo, ou seja, igual a P, isto significará 
que o carro caiu no buraco. Verificando a tabela Ixl' abaixo, 
você entenderá melhor: 


1 

r 

9 

10 

10 

ii 

11 

12 

12 

13 

13 

14 

14 

15 

15 

1 


1 

V 

1 

2 

2 

3 

3 

4 

4 

5 

5 

6 

6 

7 

7 

8 

8 

9 


Agora você pode enten¬ 
der o que quisemos dizer 
cbm "rotação". Apesar da ló¬ 
gica estar meio invertida, es¬ 
peramos que você tenha 
compreendido tudo. 


Sugestões 

Caso você seja um iniciante mesmo, aqui vão algumas 
dicas: 

— modifique o tamanho da pista, tornando possível a 
escolha da largura e do comprimento dela; 

— torne o posicionamento do veículo na pista possível 
de escolha (mais à frente ou mais atrás). Para isso você terá de 
descobrir a equação generalizada (fácil!); 

— melhore a apresentação, aliás inexistente, e letreiros. 
Algo do tipo: "Você está num rally na Amazônia. Para se re¬ 
cuperar do atraso com um pneu furado e a perda de sua esco¬ 
va de dentes, você não pode sequer pensar em parar: o tempo 
corre contra você. 

— indique se o carro bateu na pista ou caiu num bura¬ 
co. E só desmembrar a linha 55; 

— é muito incômodo ficar digitando RUN 9 a toda hora. 
Modifique isto. 

Essas são apenas algumas modificações possíveis. 
Tudo depende de sua imaginação e criatividade. Portanto, 
ponha a cabeça para funcionar e os dedos a trabalharem, que 
há muito a fazer. 
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Game B 


10 

SRUE "GflME B" 

20 

LET P =UP;L '"10740" 

30 

FOR N=NOT PI TO URL "999” 

4-0 

LET P =P4iINKEY % = "S") -<INKEY 

$ ='' 5 ! 1 

1 ) 

50 

SCROLL 

50 

IF PEEK P<>® THEN GOTO 110 

70 

POKE P,59 

80 

PRINT "1";TRB 1+RND*6;".";T 

RB 8; 

" 1" 

90 

NEXT N 

100 

PRINT PT CODE " + " , PI/PI: "UI 

! h : IR '' 


110 

PRINT "1 1 ” N 

120 

GOTO CODE s, = ; ' 


Quem não conseguiu modificar o programa não se preo¬ 
cupe: demoramos alguns meses para entendê-lo. 

No jogo A, utilizamos variáveis numéricas para verificar a 
validade do posicionamento do veículo. Coisas do tipo IF 
A = X AND B = Y THEN GOTO FIM; no caso, um pouco dis¬ 
farçadas. Nestes tipos de programa deve-se tomar cuidado 
para adequar a estrutura do mesmo a um efeito visual acei¬ 
tável. O que queremos dizer é que nem sempre o que acontece 
na tela é acusado pelo computador, mais propriamente de¬ 
vido à lentidão do BASIC e também a erros na estrutura do 
programa. 

Agora passaremos a verificar (e interferir) diretamente na 
imagem, usando PEEK e POKE. Isto aumenta a velocidade do 
programa e também a segurança na leitura das condições de 
validade. 

Para isso empregamos as variáveis do sistema (para algu¬ 
ma explicação, consulte seu manual ou Microhobby n°. 4). 
Falaremos da RTP, DFILE, POSPR. Observação: estes 500 
mnemónicos segundo o manual do TK, em outros manuais a 
denominação pode ser diferente. 

A variável POSPR (nos endereços 16398 e 16399) é lar¬ 
gamente usada em jogos na forma PEEK (PEEK 16398 + 256 * 
PEEK 16399). Somente como exemplos: "Barão Vermelho" 
(Microhobby n°. 0), "São Paulo" (fita brinde). "Morlock" (Mi¬ 
crohobby n? 8) e "Kong" (Microhobby n°. 10). Essa variável 
contém o endereço da posição do próximo PRINT "string". 
Assim, ao fazermos PEEK ('POSPR'; verificamos qual é o có¬ 
digo que "habita" este endereço. Para entender melhor veja 
os programas citados. 

Como este método já é um tanto manjado, não o inclui¬ 
remos nesta coletânea de programas. 

O novato não deve ter entendido nada. È necessário antes 
saber a disposição da memória no computador. Pegue o ma¬ 
nual e dê uma olhada. 

A imagem na tela de TV é "armazenada" na memória 
RAM logo após o programa, na forma de bytes, naturalmente. 
O que faremos será interferir diretamente na região da me¬ 
mória onde a imagem é armazenada. O início dessa região, 
que chamaremos de arquivo de imagem, é dada pela variável 
de sistema DFILE (endereços 16396 e 16397). O DFILE é muito 
mais vantajoso que o POSPR, pois não permite só a leitura 
direta do arquivo de imagem — não sendo necessário recal¬ 
culá-lo pois é constante — (obviamente se você modificar o 
programa, o endereço mudará) mas também possibilita exe¬ 
cutar um POKE ao invés de um PRINT, o qual é muito mais 


lento. A maior desvantagem é que os cuidados a serem to¬ 
mados são muitíssimos maiores. Se você executar acidental¬ 
mente um POKE num caractere 118 (New Une) provavelmente 
perderá o programa. 

Segundo o manual, o arquivo de imagem "começa com 
um caractere "New Line", seguido de 24 linhas de texto, cada 
uma terminando com um "New Line". 

Assim teríamos: 



Esses caracteres "New Line" não podem ser retirados, 
pois servem de parâmetro para a formação de imagem. Mas 
quando a memória RAM é pequena (menor que 3,25 Kbytes) o 
sistema começa a economizar memória. Isso cria um problema 
para computadores de 2 Kbytes de RAM, já que não pode¬ 
mos interferir no arquivo de imagem sem o risco de botarmos 
o micro fora do ar ou perdermos o programa. 

A variável de sistema RTP informa qual é o total de me¬ 
mória disponível; a rigor fornece o endereço do primeiro byte 
não acessável pelo BASIC. Como você deve ter visto em seu 
manual ou na Microhobby, podemos executar uma mudança 
na RTP de modo que o sistema "pense" que possui mais de 
3,5 Kbytes. Assim, modificando o valor do RTP, o arquivo de 
imagem se comportará da maneira esperada. Por isso, para 
quem tiver 2 Kbytes, se torna necessário digitar POKE 16389, 
nn onde nn > 78. 

Observações 

Os principiantes não conseguirão modificar o programa 
se não trocarem a linha 20 por 20 LET P = VAL "PEEK 16396 
+ 256 * PEEK 16397 + 5". 

Aqui usamos alguns truques, na verdade supérfluos, para 
economizar memória. Resultado: um programa com apenas 
226 bytes (realmente, um micro programa). Para quem tem 
somente 2 Kbytes aqui vão algumas dicas: 

— em todas as operações numéricas e onde houver nú¬ 
meros, use VAL. ex.: linha 20 

— quando possível use CODE para obter números de 

dois ou três algarismos, ex.: linha 120 . 

— substitua um por j PI/PI e0 por ÍNOTPI. 

|SGN PI tINTRND 

ex.: linha 30 v 

Use, mas não abuse. Esses truques diminuem a veloci¬ 
dade do jogo, portanto, evite usá-los nas linhas mais impor¬ 
tantes do programa. 

Não temos certeza, mas pelas nossas deduções, RTP 
deve ser RAM TOP, DFILE = DISPLAY FILE e POSPR = 
POSITION OF PRINT. 


TABELA 2 


Linha 

Comentários 

10 

20 

"Salva" o programa 

P é posição (na verdade, o endereço) inicial do 
veículo no arquivo de imagem. No caso, já está 
calculado para a extensão deste programa. Por 
isso, não se permitia grandes modificações. Con¬ 
vém observar que o veículo é calculado/colocado 
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no topo da tela, economizando uma linha de pro¬ 
grama que seria necessária para apagar a imagem 
do veículo. 

30 

Inicia o loop do jogo. N serve de contador de pon¬ 
tos 

40 

Toma leitura do teclado modificando P 

50 

Rola a tela, realizando o efeito de movimento e 
apagando o carro. Naturalmente o conteúdo do 
arquivo de imagem modificou-se 

60 

Aqui verifica se o endereço (P) do veículo contém 
um espaço em branco (código 0) ou não. Em caso 
negativo, o jogo termina pois é sinal de que o 
carro bateu na pista ou caiu num buraco 

70 

Condição validada, o carro é "pokeado". Repare 
que estamos interferindo no arquivo de imagem 
sem "PRINTs" 

80 

Imprime a cerca e o buraco 

90 

Fim do loop, o que implicará na vitória 

100 

Como se chegou ao final da corrida, o jogo acaba 
indicando a vitória 

110 

Imprime parte da pista e os pontos conseguidos 

120 

Como você não alcançou a linha de chegada, o 
jogo reinicia automaticamente 


Sugestões 


— as mesmas do GAME A; 

— compare o GAME A com o GAME B. O GAME A pode 
ser otimizado, aumentando-se a velocidade e diminuindo-se o 
tamanho do programa. Observe o modo de impressão da pista 
e leitura do teclado. 


GAME C 



Pode não parecer, mas o GAME B foi o primeiro passo 
para escrevermos em Linguagem de Máquina. O GAME C é 
idêntico, quanto à estrutura, ao GAME B. O que fáremos será 
transcrever certas partes em BASIC para o Assembly, cons¬ 
tituindo um programa híbrido. Aliás, a configuração ideal e 
mais prática. Neste programa fizemos algumas modificações 
para não enjoar aqueles que estão simplesmente digitando os 
programas. 

Restringimo-nos a comentar a parte Assembler e a des¬ 
tacar a linha 45, onde (também) usamos POKE para imprimir 
os buracos. 

Para digitar a parte em Assembly, você pode utilizar um 
programa auxiliar qualquer que você já possua ou seguir as 
instruções abaixo: 

1. crie uma linha REM com pelo menos 100 (cem) carac¬ 
teres. Esta linha REM tem de ser a primeira do programa. 

2. entre com POKE 16510,0 e New Line. 

3. digite o programa auxiliar. 

4. entre com os dados da tabela 1. Não digite os espaços 
entre os hexadecimais. Exemplo: "2A0C40". 

5. confira os dados com cuidado. 

6 . apague todas as linhas do programa auxiliar. 

7. digite o programa GAME C (a parte em BASIC). 

8 . grave o programa e boa corrida. 

È bom frisar que qualquer erro pode ser fatal, portanto 
certifique-se de que os dados estão corretos. Se o programa 
não funcionar, confira todo o programa novamente. Nunca 
edite a linha REM. Mas se por acidente você o fizer, não a 
mande de volta ao programa: apague a numeração e aperte 
New Line ou Enter. 

O conteúdo da linha REM é o seguinte: 
de 16514 a 16545: desenho da pista a ser impresso 
de 16546 a 16564: rotina que imprime a pista no início do 
jogo 

de 16565 a 16583: procura o endereço da imagem do 
veículo e imprime um espaço em branco 

de 16584 a 16612: executa o anti-scroll e imprime na parte 
superior da pista espaços apagando o buraco. 

Os mnemónicos estão aí para facilitar os que já enten¬ 
dem um pouco de Linguagem de Máquina. Tudo muito sim¬ 
ples. 

TABELA 3 


Endereço 

Mnemónico 

Endereço 

Mnemónico 

16546 


LD DE, (16396) 

16580 


JR NZ —8 (§) 

16550 


LD A, 24 

16582 


LD (HL),0 

16552 


(*) INC DE 

16584 


LD HL, (16396) 

16553 


LD HL, 16514 

16587 


LD BC, 792 

16556 


LD BC, 32 

16590 


ADD HL, BC 

16559 


LDIR 

16591 


EX DE, HL 

16561 


DEC A 

16592 


LD HL, (16396) 

16562 


JR NZ —12 (*) 

16595 


LD BC, 759 

16564 


RET 

16598 


ADD HL,BC 

16565 


LD HL, (16396) 

16599 


LDDR 

16568 


LD DE, 672 

16601 


LD DE, 21 

16571 


ADD HL, DE 

16604 


ADD HL,DE 

16572 


LD B, 10 

16605 


LD B, 9 

16574 


(§) DEC B 

16607 


( + ) LD(HL),0 

16575 


RETZ 

16609 


DEC HL 

16576 


INC HL 

16610 


DJNZ —5 ( + ) 

16577 


LD A,(HL) 

16612 


RET 

16578 


CP 38 




Quem tem 2K bytes não deve esquecer de digitar algo 
.para modificar a RTP. Para evitar essa amolação você pode 
incluir tanto no GAME C como no GAME B estas linhas: 10 
POKE 16389, 128 e 11 CLS após o SAVE. 

Para quem entendeu as rotinas Assembler, seria interes¬ 
sante fazer algumas mudanças como: mudar a cor, diminuir 
ou alargar a pista. Se você ainda não começou a estudar o 
Assembly, aqui vai um estímulo: não vamos dizer quais são os 
endereços principais e vitais para as modificações. Descubra! 
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GAME D 


1 

REM 

(1055 CARACTERES3 

2 

SAUE 

" GfiME D " 


RAND 

USR 17100 


"Now comes the tricky part." Esta foi a frase usada por 
Glen Martin na revista Compute! de julho de 1983 para se re¬ 
ferir à digitação dos hexadecimais de uma rotina Assembler. 
Foi aliás, a primeira vez que nos deparamos com um artigo 
tratando de rotinas em Assembly. Além das rotinas, ele tam¬ 
bém apresentava um pequeno monitor para introduzir os he¬ 
xadecimais. 

Mas o monitor não era prático, e nem haveria razão de ser 
pois as rotinas eram pequenas. Se você achou trabalhoso digi¬ 
tar os programas até aqui, nós lhe diremos: "lt's now that 
comes the really tricky part!" São 1045 hexadecimais a serem 
digitados, pois chegamos ao último estágio deste artigo: um 
programa inteiramente em linguagem de máquina: 

A parte em Assembler não é muito grande, tendo pouco 
mais de 0,5 kBytes. O que ocupa grande parte do programa 
são os letreiros e algumas instruções necessárias para jogar. E 
olhe a abertura está até bem simples. Apesar do programa 
ocupar apenas 1051 bytes (incluindo-se a linha REM onde está 
armazenado), para quem tiver 2 kBytes surgirão alguns pro¬ 
blemas que discutiremos mais tarde. 

Não haveria espaço para explicarmos o programa todo, 
quanto menos para publicarmos os mnemónicos. Para aju¬ 
darmos os que se decidirem a estudar o programa, abaixo está 
um pequeno esquema da estrutura do programa. 

16540 a 16591: caracteres usados na impressão da pista 

16592 a 16597: variáveis do programa 

16600 a 17031: caracteres da abertura do jogo 

17040: CLS em video inverso 

17100: inicialização do programa 

17240: apaga o veículo 

17257: SCROLL invertido incompleto 

17274: imprime superior da pista e buraco 

17342: faz leitura do teclado 

17427: checa endereço do veículo podendo imprimi-lo ou 
explodi-lo 

17513: contador de pontos 

17541 a 17559: loop do tempo e volta a 17240 

E a linha REM? 


Como a linha REM é muito grande, causando alguns pro¬ 
blemas, você terá de recorrer a algum artifício. Nosso conse¬ 
lho: após ter o programa auxiliar já "gravado" no micro, você 
deverá usar a dica de Microhobby rtf 7 criando uma linha REM 
de 1050 bytes. 

Ou então, pode seguir as nossas instruções: 

1. Após ter carregado o micro com o programa auxiliar, 
coloque-o em FAST 

2. Digite a linha 1 REM com exatamente 30 caracteres 

3. Digite a linha 2 REM com exatamente 122 caracteres 

4. Editando a linha 2, crie mais sete novas linhas REM 
com 122 caracteres cada. No total teremos uma linha com 30 
caracteres e oito linhas com 122 caracteres 

5. Faça: POKE 16510,00 enewline 

POKE 16511,32 enewline 
POKE 16512,04 enewline 


Como usar o programa auxiliar 
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N 




GÜSU8 
GO SUB 3X4 POKE 
COS 7 E£J 
GOSUB i 


IC 

<HD 


0gREM _ 

?£RNDY 
TAN E£RND) 

ND* s :,:, FOR E£RND* RU 
J>+ ;A5 b F C CLS TAN Ü 
bO00 REM MONITOR HEXADECIMAL 
b010 PRINT " CD) ENTRRR COM DRDOS 
"CS) CONFERIR SOMA" ."CH) CONFE 
RIR HEXADECIMAIS" 

5020 INPUT A$ 

"ENDEREÇO 
I 

"ENDEREÇO 
F 


5030 

5040 

5050 

5060 

5070 

5030 

5030 


INICIAL? 


FINAL- 


‘D")+5400*CAÍ 


5100 

5101 

5102 

5103 

5104 
5110 
5120 
5130 
5140 
5150 
130 
5150 
5170 
5130 
5130 

) -475 

5200 

5210 

5220 

5230 

5240 

5250 

5250 

5270 

5275 

5230 

5230 


PRINT 
INPUT 
PRINT 
INPUT 
FAST 
C L S 

GOTO 5110* CR5 = : 

) +5270* £A$="H") 
bCROLL 
SCROLL 

PRINT "ENDEREÇO ?" 

INPUT I 
SCROLL 

REM ENTRA HEXADECIMAIS 
LET Ai=”" 

SCROLL 

PRIhlT I;" -> ** ; 

IF PEEK 15441=1 THEN GOTO 


IF Hí = "" THEN INPUT Aí 
IF A$ = "H" THEN GOTO 510O 
PRlbrr " "; Aí c TO 2) ; 

POKE I:16*C0DE Aí+CÜDE A$C2 


LET 1=1+1 

IF I>F THEN GOTO 5240 
LET Aí=AÊ C3 TO ) 

GOTO 5150 
PAUSE 4E4 
C L S 

GOTO 5010 

REM LISTA HEXADECIMAIS 
PRINT I;" 

FOR N =I TO F 

IF PEEK 15441=2 THEN PRINT 
" " ; N; 

5300 LET A=PEEK N 

5310 PRIbrr " " ; CHRí CINT CA/15') + 

28) ;CHRí CA-INT C A/15) *15 +23) ; 

5320 IF PEEK 16441=2 AND PEEK 16 

442=3 THEN GOTO 5370 

5330 NEXT N 

5340. PAUSE 4E4 

b 3 b 0 CLS 

5350 GOTO 5010 

5370 PAUSE 4E4 

5330 CLS 

5330 PRINT N+l;" 

5395 GOTO 5330 
5400 REM CONFERE 
5410 FOR N = I TO F 
5420 LET 3=0 
5430 FOR M =0 TO 7 
b440 IF F >=N+M THEN 


OMA 

STEP 


8 


CN + M) 


LET 5 =5 +PEEK 


5450 

NEXT 

M 

5450 

PRINT 

N ; = " ; S 

5470 

520 

IF PEEK 164-4-2=2 

5430 

NEXT 

N 

5490 

PAUSE 

4E4 

5500 

CLS 


5510 

GOTO 

5000 

5520 

PAUSE 

4E4 

5530 

CLS 


5540 

GOTO 

5430 

5550 

SAUE 

"MONITuSg" 

5555 

RUN 


THEN GOTO 5 














Para evitar alguma dúvida, explicaremos como usar o 
monitor. Ê necessário que esteja idêntico à listagem impressa 
ou pode não funcionar. 

Preste atenção nos (ponto e vírgula) ao digitar o mo¬ 
nitor. 

Ao iniciar o programa com RUN 5000, o micro pergun¬ 
tará qual o modo escolhido. Comece com (D) para digitar os 
dados. Depois o programa indagará quais os endereços inicial 
e final. Se for o GAME C: inicial = 16514 e final = Í6612. Se 
for o GAME D: inicial = 16514 e final = 17558. Após você ter 
entrado com os endereços, aparecerá no fim da tela: " 16514 
—>” esperando que você entre com os hexadecimais da ta¬ 
bela, mas sem os espaços. Você pode entrar com uma linha 
incompleta ou maior que os oito hexadecimais de cada linha 
da tabela. Cuidado para não digitar a última coluna, que é a 
das somas. 

Após você ter digitado tudo, o programa voltará ao es¬ 
tado inicial. Você deve agora responder (S). O programa lis¬ 
tará os endereços e a "soma” correspondente daquela linha. 
Compare com a tabela. Se houver alguma diferença, anote 
num papel à parte os endereços com erros. È claro que nem 
sempre um erro nos hexadecimais implica em erro na soma, 
portanto é aconselhável que você também dê uma olhada nos 
hexadecimais. 

Agora você deve checar os hexadecimais no modo (H). 


Com os endereços anotados, verifique qual foi o seu erro e 
quando retornar ao modo (D), corrija-os. Importante: para 
mudar de endereço no modo (D) tecle ”M”. Também é acon¬ 
selhável você não digitar tudo de uma vez só: faça a digitação 
bem aos poucos, e vá gravando a cada 25 linhas. 

Para quem tiver apenas 2K bytes de RAM, não adianta 
usar o monitor acima citado. O jeito é usar um monitor sim¬ 
plificado e menos prático ou então pedir para alguém com 16K 
bytes ou mais lhe arranjar o programa. Pois este também fun¬ 
ciona em 2 kBytes, só que . . . Bem, você poderá usar ne¬ 
nhuma linha de programa fora a linha REM com os códigos em 
Assembly, portanto, não poderá fazer uso do auto-start. Você 
deve gravar em SAVE fora do programa e para rodar digite 
RANDUSR 17100. 

Ainda não acabou: depois da instrução acima ter sido 
mandada para o sistema, você deve digitar mais alguma tecla 
para o jogo começar. O espaço em video inverso não devia 
aparecer, mas aparentemente também não apresenta perigo 
algum. 

Últimos avisos: após você ter digitado e conferido todo o 
conteúdo da linha REM e apagado o monitor, grave o pro¬ 
grama várias vezes e em fitas diferentes sem o auto-start. 
Assim, se você fizer uma gravação mal-feita, não perderá o 
programa. Se você não possuir um joystick, pode substituir as 
teclas 5, 6, 7 e 8 respectivamente por 1, U, H e E para maior 
comodidade. 

Conclusão 

Mostramos neste artigo a evolução do jogo "Rally” desde 
o mais puro BASIC até o ASSEMBLEY total. Tentamos, 
quando possível, explicar detalhadamente o funcionamento 
dos programas visando ajudar qualquer tipo de iniciante, seja 
você um novato em BASIC ou em linguagem de máquina. 
Mas temos certeza de que este artigo foi proveitoso para 
todos: se chegou a repetir coisas das quais já estivesse careca 
de saber, ao menos você deve ter se divertido com o último 
GAME. 



APRESENTAÇÃO 

Nossa revista 

sempre teve como meta principal, 
servir de veículo para todos aqueles 
que são "amantes da computação", 
através de informações de nível didático 
(procurando atingir, ao máximo, 
os interesses dos leitores); 
da prestação de 
serviços; de espaços dedicados 
a opiniões, idéias e críticas 
de nossos leitores, como também da divulgação 
do potencial criativo destes 
que tem o hobby da computação. 
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MICROHOBBY 

V_ I_ ) 



LANÇAMENTO 


Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 
própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 

Saidas: Expansão memória/impressora 
Fonte externa ou interna 
Rede 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 VaC 
Joystick 


INTER-COL IND. E COM. LTDA. 

Depto. Vendas • Av. Alda. 805 - Diadema (Centro) 
fone; 456.3011 


Lmha de rauricação: 

Chaves comutadoras 

Teclas e teclados semi profissionais 

Teclas e teclados profissionais 








































PROGRAMAS 



CUBOS 3D 

Gustavo Egidio de Almeida 


Descrição 


Este é um programa que desenha 
cubos em três dimensões na tela de 
seu aparelho de TV e que roda em seu 
TK com expansão de 16k de memória. 

As figuras são formadas espacial¬ 
mente através do comando PLOT e 
como você pode notar nas figuras 1 e 2 
o efeito demonstrado é bastante inte¬ 
ressante. 


Fig. 1 


■i 

\ 

K 


\ 

"XI 

Fig. 2 


0 programa pode ser utilizado co¬ 
mo um estudo de figuras dispostas em 
perspectiva, em áreas como arquite¬ 
tura, engenharia civil ou mecânica, ou 
ainda ser usado como um simples ob¬ 
jeto de observação. Damos como su¬ 
gestão aos usuários que dominam ra¬ 
zoavelmente a linguagem BASIC TK, 
que façam futuras adaptações ao pro¬ 


grama, para que essas figuras sejam 
rotacionadas na tela nos seus respec¬ 
tivos eixos : X, Y, Z. 



Fig.3 


Funcionamento 


Descreveremos agora o programa 
por partes, através do funcionamento 
de cada bloco e de suas respectivas li¬ 
nhas de programa (Fig. 4). 


INSIRR RS COORDENPDRS 

DOS PONTO;': 

R 

, B , C , D 




DE 

R5 COORDENADAS 

DO 

PT O 

fi tX ,Y) 

DE 

R5 COORDENrlDRS 

DO 

PT O 

3 (X ,Y) 

DE 

RS COORDENRDRS 

DO 

PTO 

C (X ,YJ 

DE 

RS COORDENRDRS 

DO 

PT O 

D tX,Y> 

OURL R RLTURR DO CUCO 

7 



Fig. 4 


— LINHAS 5 a 65: são impressas na 
tela perguntas sobre as coordenadas 
dos vértices A, B, C, D que formam a 
superfície do cubo. Você tem que en¬ 
trar as coordenadas de cada vértice, 
como explicaremos a seguir: 

VÉRTICE A (X, Y) 

Ao rodar o programa, surgirá na 
tela a seguinte mensagem: 


"DÉ AS COORDENADAS DOS PON¬ 
TOS A (X, Y)" 

aparecendo o cursor de entrada de da¬ 
dos logo em seguida. 

Você deve teclar o valor da coor¬ 
denada X e digitar NEW UNE. Digitar 
a coordenada Y e teclar novamente 
NEW UNE, repetindo a operação para 
os outros três pontos angulares, ou se¬ 
ja, para os pontos B (X, Y), C (X, Y) e 
D (X, Y). 

— UNHA 70: pergunta qual a altura do 
cubo, que não deve obviamente ultra¬ 
passar os limites da tela. Recomenda¬ 
mos a utilização de valores na faixa en¬ 
tre 10e25. 

Ao digitar as coordenadas dos 
vértices, certos cuidados devem ser to¬ 
mados. 

Como você notará a seguir, a tela 
do seu TK será dividida da seguinte 
maneira: 

a tela é dividida em 64 colunas e 44 li¬ 
nhas, numeradas respectivamente en¬ 
tre 0 a 62 e entre 0 a 42. Será usado 
como impressão o comando PLOT x, 
y, sendo X a variável usada para coluna 
e Y usada para linha (Fig. 5). 

As coordenadas dos vértices, só 
poderão ser as descritas nos eixos X e 
Y da figura 5 e, como você pode notar, 
são usados apenas os números pares 
para os vértices. 

Neste cubo tomado como exem¬ 
plo, as coordenadas dos vértices e a 
altura, foram as seguintes: 

A (X, Y) = A (26, 36) 

B (X, Y) = B (42, 36) 

C (X, Y) = C (38, 24) 

D (X, Y) = D (54, 24) 

ALTURA = M = 10 
Nas linhas 85 a 700 estão impres¬ 
sas todas as informações necessárias 
para formação de um cubo em três di¬ 
mensões. 
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Para facilitar o estudo de forma¬ 
ção do cubo, vamos visualizá-lo por 
partes, através de cópias tiradas na im¬ 
pressora e de sgas respectivas linhas 
de programa: 

LINHAS 85 a 180: (fig. 6) 

LINHAS 185 a 280: (fig. 7) 

UNHAS 285 a 340: (fig. 8A, 8B, 
8 C, 8D) 

LINHAS 345 a 440: (fig. 9) 

LINHAS 445 a 540: (fig. 10) 
UNHAS 545 a 700: (fig. 11A, 

11B 




Fig. 10 
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370 GOTO 4-4-5 

375 LET V=RB5.(U-L) 

360 FOR Z=0 TO V-X 

385S5IF I <K RND <J-M>L-M THEN GOT 
O 415 

399 IF I<K RND U-M<L-M THEN GOT 
O 4 05 

395 IF I > K RND U-H <L-M THEN GOT 
O 425 

400 XF I > K AND U — M > L — M THEN GOT 
O 435 

405 PLOT I+ Z , ü —M+2 
410 GOTO 440 
4 15 PLOT 1+2 . vJ-M-Z 
420 GOTO 440 
425 PLOT I-Z,U-M+Z 
430 GOTO 440 
435 PLOT I-Z.U-M-Z 
440 NE.XT 2 

445 IF F-M=H-M THEN GOTO 455 

450 IF F —M < > H —M THEN GOT O 475 

455 FOR R=£ TO G 

460 PLOT R,F-M 

465 NEXT R 

470 GOTO 545 

475 LET B=AB5 <F-H> 

480 FOR C=0 TO B-l 

485 IF E < G AND F-M >H-H THEN GOT 
O 515 

490 IF E < G AND F ~M < H —M THEN GOT 

O 505 

495 IF E > G RND F-N<H — H THEN GOT 

O 525 

500 IF E > G RND F-M > H-M THEN GOT 
O 535 

505 PLOT E +C,F —M+C 

510 GOTO 540 

515 PLOT E +C,F-M —C 

520 GOTO 540 

525 PLOT E —C,F —M+C 

530 GOTO 540 

535 PLOT E-C.. F-M-C 

540 NEXT C 

545 LET D = AB5 CF-O) 

550 FOR 0=0 TO D-l 

555 IF E >I RND F-M>ü-M THEN GOT 

O 565 

560 IF E <I RND F-M>U-M THEN GOT 

O 575 

565 PLOT I —O j <J —M +0 

570 GOTO 580 

575 PLOT I-O.U-M+O 

580 NEXT O 

585 LET P=RBS (H-L) 

590 FOR 0=0 TO P-l 

595 IF G > K RND H -H > L-H THEN GQ' r 
O 605 

600 IF G <K RND H-M >L — M THEN GOT 
O 615 

605 PLOT K + 0 ,L —M +0 

610 GOTO 620 

615 PLOT K-0,L —M+0 

620 NE.XT O 

625 LET R=RBS (F-U) 

630 FOR S=0 TO R — 1 

635 IF E > I RND F >vJ THEN GOTO 64 

5 

^640 IF E <I RND F>U THEN GOTO 65 

645 PLOT 1 + 5 j U+S 

650 GOTO 660 

655 PLOT I -S j <J +S 

660 NEXT S 

665 LET T =ABS (H-L) 

670 FOR U=0 TO T-1 

675 IF G >K RND H >L THEN GOTO 66 

5 

^680 IF G <K RND H >L THEN GOTO 69 

685 PLOT K +U,L +U 

690 GOTO 700 

695 PLOT K-U,L+U 

700 NEXT Li 

705 ST OP 

710 PRINT PT 20 , 0; "PARA DESENHA 
R OUTRO CUBO TECLE 0" 

720 IF INKEYS="0" THEN RUN 
730 GOTO 720 

740 SRUE "CUBOS" 

750 RUN O 


1 REM HtCUBOS EM 3D 
3 C-LS 

5 PRINT ”INSIRA RS COORDENADA 
S DOS PONTOS R . 5 , C , D" 

1© PRINT ,,"DÊ RS COORDENADAS 
DO PT O R(X.YJ " 

15 INPUT E 

20 INPLIT F 

25 PRINT j, j “DE RS COORDENADAS 

DO PT O B (X . Y> " 

30 INPUT G 

35 INPUT H 

4© PRINT , /'DE RS COORDENADAS 

DO PT O C (X,Y) " 

45 INPUT I 
50 INPUT J 

55 PRINT .. .. "DE RS COORDENADAS 

DO PT O D(X.Y) " 

60 INPUT K 

65 INPUT L 

70 PRINT ,,"OUAL R ALTURA DO C 
UBO 

75 INPUT M 
80 CLS 

85 IF F=H THEN GOTO 95 
90 IF F < > H THEN GOTO 115 

95 FOR N=E TO G 

100 PLOT N.F 
105 NEXT N' 

110 GOTO 185 

115 LET 0=RBS (F-H) 

120 FOR P=0 TO 0-1 

125 IF E <G RND F >H THEN GOTO 15 
5 

^130 IF E <G RND F <H THEN GOTO 14 

135 IF E > G RND F <H THEN GOTO 16 

O 

^140 IF E > G RND F >H THEN GOTO 17 

14S PLOT E+P.F+P 
150 GOTO ISO 
155 PLOT E+P,F-P 
160 GOTO ISO 
165 PLOT E-P.F+P 
170 GOTO 180 
175 PLOT E —P,F — P 
180 NEXT P 

185 IF J=L THEN GOTO 195 

190 IF <J < >L THEN GOTO 215 

195 FOR 0=1 TO K 

200 PLOT O.U 

205 NEXT O 

210 GOTO 285 

215 LET R=RBS CU-L) 

220 FOR S=0 TO R-l 

g 225 IF I< K RND U>L THEN GOTO 25 

^230 IF I <K RND <J <L THEN GOTO 24 

^235 IF I> K RND U<L THEN GOTO 26 

^240 IF I >K RND «J>L THEN GOTO 27 

245 PLOT I+S.U+S 

250 GOTO 280 

255 PLOT I+S.O-S 

260 GOTO 2S0 

265 PLOT I-S,U+S 

270 GOTO 280 

275 PLOT I-SjJ-S 

280 NEXT S 

285 FOR T =<J—H TO U 

290 PLOT I,T 

295 NEXT T 

300 FOR U =L —M TO L 

305 PLOT K,U 

310 NEXT U 

315 FOR U=F-M TO F 

320 PLOT E,U 

325 NEXT U 

330 FOR U =H —M TO H 

335 PLOT G . U 

340 NEXT U 

345 IF <J-M =L —M THEN GOTO 355 
350 IF «J —M < >L —M THEN GOTO 37S 
355 FOR X=I TO K 

360 PLOT X,U-M 
365 NEXT X 
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HOBBYSHOP VEJA SE SUA CIDADE TEM O QUE VOCÊ PRECISA 


SÃO PAULO 


MICRO Service 

Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de 1/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82, 83,85, etc.) eTRS. 

Wilson de Assis — Tel.: 203-7967 


TKSOM-TKMORSE 

2 Software de alta qualidade para Micros Sinclair com 16 K 

TKSOM — coloca som no seu micro; contém 6 músicas; você pode programar suas 

músicas. 

TKMORSE — lista sua mensagem em código morse; transmite sinais sonoros de men¬ 
sagem prè-gravada; transmite sinais sonoros simultaneamente com a digitação. 

Preço até 30-06-85 Cr$ 28.000 

Envie cheque nominal para: 

MÁRCIO ACCIOLY 

Rua Dr. Saboia de Medeiros, 199-54 - Cep 04120 — São Paulo — SP 
e receba os 2 Software pelo correio, sem mais nenhuma despesa. 

PREÇOS ESPECIAIS PARA REVENDEDORES. 



Transforme seu TK 85. 

O mesmo efeito dos 
monitores de vídeo. 

Fundo: preto 

Letras: brancas 

Com uma simples modificação 

no microcomputador. 


TRANSVIDEO Fone: (011)522-8100 


ErüE 


Comércio de Computadores Ltda. 
TK85 x TK2000? 


Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom - Tel. 813-7570. 
Av. dos Tajurás, 406 — CEP: 05670. 



cipplG cursos 

CURSOS DIRIGIDOS DE 
MICROCOMPUTADORES 


• BASIC I e II e Applesoft 
• ASSEMBLER 6502 

• EDITOR DE TEXTO E PLANILHA ELETRÔNICA 


NOVAS TURMAS (c/ 12 alunos) 

INÍCIO IMEDIATO 


Reservas pelos Telefones: 853-9457 — 853-2408 Rua Suzano, 78 — Jardim Paulista — São Paulo 



PROGRAME-SE! 


Faça como os funcionários da SABESP, BURI, KIBON e outros. Venha desvendar o 
computador da DATA RECORD INFORMÁTICA. 

COBOL - BASIC - DIGITAÇÃO 

Turmas especiais para crianças de 8 a 14 anos. (BOLSAS DE ESTUDO) 

Av. Santo Amaro, 5.450 — Tel. 543-9937 — Brooklin — (em frente ao E.C. Banespa). 


QUAL A INTERFACE QUE ESTÀ FALTANDO 
NO SEU MICRO? 

É AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 

MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo¬ 
rido, utilizando acrílico nas tonalidades verde e ambar. 

Informações com MASTER STING LTDA. 

Caixa Postal 18708 — São Paulo — SP 


SUPRIMENTOS P/INFORMÁTICA 


«FORMULÁRIOS 

* DISKETES * FITAS IMPRESSORAS 

* PAPEL XEROGRÁFICO 

* SUPRI MENTOS P/TELEX E ESCRITÓRIO 

INFORMAX-PRODUTOS P/ INFORMÁTICA LTDA. 

R. Dom i ngos de Mor a is, 254-6? and. Cj.602-A 
Tel. ( 011 ) 570.7570 


SÃO JOSÉ DOSCAMPOS 


E «TRONIC - COMPONENTES E SISTEMAS LTDA. 

"SOFT-LOADER" — Interface micro-cassete para TK 82-C, 83, 
85 e Ringo. Indica nível certo para carregar programas sem proble¬ 
mas e falhas. (Veja Microhobby N? 10, 12 ou 13). Já um GRANDE 
SUCESSO PROVADO por centenas de usuários do TK. PREÇO: 
Cr$ 49.000,00 (Março). 

Mande seu pedido com cheque nominal ou vale postal para 
EKTRONIC COMPONENTES E SISTEMAS LTDA. Caixa Postal 
7004. São José dos Campos. CEP: 12200. Tel.: (0123) 291148. 


BAHIA 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei¬ 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 


RIO DE JANEIRO 


PROSERV-Processaiento lados.Cirsos e Rep.Ltda. 
.NICROCONPUTADORES (Novos t Usados) 

.CURSOS (Cobol. Basic. CP/N. Ilase II) 

.SUPRINENTOS (Foriularios. Disquetes. Fitas, etc.) 

.LIVROS E REVISTAS 

.SOFTWARE (TRS80. Apple. TK85) 

LS.Nove de Abril 27 salas 626/628 
Tel: (0243) 429800 - V.Redonda - RJ 


MINAS GERAIS 


MICRO E VIl)F O 


Curso de Basic com turmas mensais 

Programas para toda linha de microcomputadores — Sinclair, 
TRS-80, Apple, TRS Color, Comodore CP/M — Aplicativos e Jo¬ 
gos (Solicite catálogo especificando seu equipamento). 

Livros e revistas nacionais e estrangeiros. Venda de Micros, peri¬ 
féricos e suprimentos. Soft House. 

VILLABELLA SHOPPING - LOJA 6 

Avenida Japão, 229 - Cariru - CEP 35160 - Fone (031) 821- 
2888 — Ipatinga — MG. 



















































TK 85 


NAVIO FANTASMA 


Programa: Marcos Teixeira 
Texto: Vívian Bernardo 

Uma velha lenda diz que, no século 
XVI (o século das descobertas) um na¬ 
vio partiu de um porto holandês em di¬ 
reção às Américas. Era um navio enor¬ 
me, todo feito em madeira de lei, com as 
velas içadas e tripulação armada para 
honrar a bandeira da Holanda, decidi¬ 
dos a enfrentar o sol, o vento dos trópi¬ 
cos, as chuvas, as tempestades, o vazio 
e a solidão do mar, em busca de con¬ 
quistas e riquezas. E a viagem prosse¬ 
gue . . . 

Numa noite de tempestade, de 
repente, as águas recomeçaram a avan¬ 
çar sobre o navio, invadindo os compar¬ 
timentos, arrastando seus homens, seus 
pertences até romper seu casco. 

Outros navios vieram do mundo in¬ 
teiro com a esperança de terminar a via¬ 
gem ao Novo Mundo e voltarem para 
casa cheios de orgulho e dinheiro. E 
muitos deles também foram, como o na¬ 


vio holandês, assolados por furacões e 
tempestades e jamais voltaram. 

Muito tempo depois, numa noite 
fria, de ventos fortes e muito nevoeiro, 
um velho barco vindo de algum porto 
europeu enfrentava bravamente o início 
de uma grande tempestade, com os ma¬ 
rinheiros apavorados olhando o céu 
completamente escuro acima de suas 
cabeças. Então, nas nuvens negras do 
céu, eles avistaram um navio "navegan¬ 
do" contra o vento. Era o navio holan¬ 
dês . . . Um navio fantasma!!! 

E até hoje o navio reaparece no céu 
nas noites de tempestade, iguais àquela 
em que ele naufragou, para aqueles que 
tentam desafiar o mar e sua fúria. Ele é o 
Holandês Voador (também nome de 
uma ópera de Wagner, inspirada na len¬ 
da). Eis agora um outro grande desafio: 
encontrar o Navio Fantasma na tela de 
seu micro. 


Seu alvo está entre 1 e 30 nos eixos 
de coordenada horizontal e vertical (fi¬ 
gura 1). Você tem 7 chances para acer¬ 
tar o alvo. Se ao final das chances você 
não encontrar o navio fantasma, apare¬ 
cerá uma mensagem correspondente e o 
valor correto das coordenadas do ponto 
do alvo (figura 2). Mas caso você consi¬ 
ga encontrar o navio fantasma, ou seja, 
o valor do erro = 0, o navio no canto 
inferior da tela afundará. As rotinas de 
erro e de acerto do alvo estão, respecti¬ 
vamente, nas instruções 700 e 500. A 
fórmula para o cálculo do erro está na 
instrução 270 e é uma aplicação da defi¬ 
nição matemática de distância entre dois 
pontos, na geometria analítica. O ponto 
do alvo tem coordenadas A e B no pro¬ 
grama e a escolha do alvo é aleatória 
(instruções 180 e 190). Digite este pro- 
graminha e comece sua busca ao Holan¬ 
dês Voador. Boa sorte! 
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10 REM M NRUFRNT ,S 
20 CLS 

38 PRiNT The 7; 




4-0 PRINT RT 15 , 24 ; r" ; RT 16,24 
!_; RT 17.24; : 1 ; RT I S', 28, ! Bas 

l _l RT 19,21; ' ; RT 28,42 

; RT 2128 "nsw 
58 FOR M= 8 Tü 31 
58 RLOT M:8 
78 RLOT 8,M 
88 NEXT M 
98 FOR M = 8 TO 31 
188 RLOT H,31 
118 RLOT 31.M 
128 NEXT H 
158 LET U=0 

168 RR INT RT 5.20 : M X " ; RT 5,24; !! 
Y" ; RT 5,28 ; ! ERRO :: 

178 LET E =31 
188 LET R = INT CRNDhE) -1 
198 LET 5 = INT \.RHD*E1 -1 
288 LET J =7 

218 RR INT RT 3.5 ; ;i DIGITJE X (1 R 
38 3 :: 

228 INPÜT C 

225 IF C < 1 GR 0 38 THEN GOTO 44 

8 

238 RRINT RT J.28;C 
248 RR INT RT 3 :S\“DIGITE Y(1 H 
38 3 " 

258 INPÜT D 

255 IF D <1 OR D>38 THEN GOTO 2 
58 

258 PRINT RT J ,24,D 
278 LET R = IMT SOR '( RB 5 (C-R3 *±4 

+RBS (D-5 3 #*2 3 
288 PRINT RT J : 2S:R 
298 RLOT C,D 
388 sLET J=ü- 1 
318 IF R ;• O ^HEn OS-O 488 
328 GOSUB 588 
338 GOTO 420 
488 LET U=U+1 
418 IF w =5 THEN GOTO 218 
415 GOSUB 788 

428 .PRINT R^" 3,0-; “QUER üüGRH NO 
‘JfihEt-rrE ? (S/N) 

438 INPÜT E$ 

448 IF Es="S ,: THEN GOTü 28 
445 IF Es=' , N n THEN STOR 
458 IF Eê:>“S i! OR ElO !! N n THEN 
GOTO 438 

588 REM RG7INR DE RCERTO 
585 PRINT RT S , 8 ; i; PRRRBENS , UOC 
E RCERTOU 0 RLUO : 

585 RRUSE 288 
518 LET L ê = !, f 
528 FOR 5=18 TO 20 
538 PRINT RT 5,28:2$ 

548 NEXT 5 
558 RETüRN 

788 REM ROT INR DE ERRO 
718 PRINT RT 3,5; “U0C5 PcRDlzU 
/ X = " ;R; : */Y= ts ;B 

715 RRUSE 258 
728 RETÜRN 



ASSINE O 

IV 



O Jornal do VIDEOTEXTO é dirigido a profissionais 
liberais, engenheiros, empresários e estudantes. Fique 
sabendo das novidades, tendências e experiências do vi¬ 
deotexto, recebendo em casa 12 edições do único veí¬ 
culo com informações atualizadas, isentas e analíticas 
sobre o setor. 

Envie seu pedido à 

Dialógica Comunicação e Sistemas Ltda. 

Rua Fradique Coutinho, 50 
CEP 05416-São Paulo - SP. 

Fones: 64-0331 e 64-7131 


Nome: . 

Profissão:. 

Endereço: .CEP . 

Cidade:. Estado:. ... Fone: 


Desejo receber 12 edições do Jornal do 
VIDEOTEXTO. Estou anexando cheque nominal à 

Dialógica Comunicação e Sistemas Ltda. no valor 
de Cr$ 27.000. 

Quem assina tem prioridade da informação. 

Seja assinante do )V. 


FAÇA DE SEU MICRO “SINCLAIR” 
UM PROFISSIONAL 



De-lhe um teclado 



e ele 



□ Maior dinamismo na entrada de dados 

□ Vida útil maior que 2 milhões de operações 

□ Um TECLADO profissional com switches individuais e 
acondicionamento mecânico 

□ Gabinete em fiber-glass que acondiciona o micro 

SPEED ELETRO ELETRÔNICA LTDA. 

Rua I (i) N.° 395 - Bernardo Monteiro - Contagem - MG 
Tel: Escrit. (031) 463-3171 Fábrica: (031) 351-1887 


REVENDEDORES AUTORIZADOS: (011) 522-4637; (021) 270-9197; 
(081) 326-8814; (0514) 491-323; (084) 231-1055; (091) 223-6319 



















LABIRINTO 

L a- 


Mário Micheletti 


Fábio Augusto Polonio 



Imagine-se no labirinto do Mino- 
tauro, o legendário monstro da Mitolo¬ 
gia Grega, com corpo de homem, cabe¬ 
ça de touro e uma força sobrenatural, 
capaz de transformar uma pessoa em 
pedaços. 

0 monstro o persegue, tentando lhe 
alcançar e impedir o êxito de sua missão 
que, no caso, é tentar recolher todos os 
potes de ouro espalhados ao longo de 
sua árdua caminhada pelo labirinto. 

Porém, não se apresse, pois esta¬ 
mos na era atômica e não na antiga Gré¬ 
cia. Assim sendo, como as coisas estão 
muito mais desenvolvidas, existem ain¬ 
da outros perigos além do monstro. As 
paredes do labirinto são eletrificadas 
com corrente elétrica suficientemente 
elevada para lhe causar a morte, caso 
você apenas esbarre em alguma delas. 

Além disso, as paredes do labirinto 
se movem, formando becos sem saída, 
tentando emboscá-lo. 

Esta é a aventura proposta pelo pro¬ 
grama elaborado por Mário Micheletti, 
em seis níveis de dificuldade, classifica¬ 
dos da seguinte forma: 

Nível 1 Novato 

Nível 2 Adiantado 

Nível 3 Mestre 

Nível 4 Maluco 

Nível 5 Obstáculos Randômicos 

Nível 6 Prêmios Múltiplos 

A velocidade de deslocamento den¬ 
tro do labirinto é optativa. Tanto a velo¬ 
cidade do monstro quanto a sua são in¬ 
versamente proporcionais à magnitude 
do número introduzido, isto é, quanto 


maior o valor do número menor a sua 
velocidade e a de seu perseguidor. 

O programa, totalmente em BA¬ 
SIC, possue pouco mais de 2 kB de 
RAM, 

È interessante notar o uso de ins¬ 
truções SCRN x,y e ON. . . GOSUB. . . 
que constituem formas elegantes de Ló¬ 
gica para programação em linguagem 
BASIC. 

A rotina de formatação da tela vai 
do começo do programa — linha 0 — a 
linha 470 (de acordo com o nível esco¬ 
lhido teremos diferentes formas). 

Da linha 470 em diante, constitui as 
rotinas de animação, mensagens e con¬ 
tagem de pontos. 

Detalhes de Digitação 

Na listagem existem alguns proble¬ 
mas referentes à continuidade das linhas 
de instrução, que podem causar dificul¬ 
dades de compreensão e, como conse- 
qüência, erros de digitação. Seguem, 
portanto, alguns esclarecimentos: 

Linha 

20 .Input 

"VELOCIDADE = "; V 

100.GOTO 100 

130.:PLOT 32, 22: PLOT 

31, 12 

240.INT (RNDÍD* 27) + 7 

: NEXT 

310.VLIN 1, 39 AT 39 

410.PLOT 9,21 

420. PLOT 8,18:. 


ÍO HOME : INVERSE : HTAB 
(Í2): PRINT 
" LABIRINTO " 

20 VTAB (4): HTAB (2): I 
NPUT "VELOCID 
ADE= "-0: NORMAL 
30 TB = 10: VTAB (6) 

40 HTAB TB: PRINT "(1) N 
OVATO" 

50 HTAB TB: PRINT "(2) A 
DIANTADO" 

60 HTAB TB: PRINT "(3) H 
ESTRE " 

70 HTAB TB: PRINT "(4) H 
ALUCO " 

80 HTAB TB: PRINT "(5) 0 
BSTACULOS RAN 
DOHICOS" 

90 HTAB TB: PRINT "(6) P 

REMIOS HULTIP 

LOS" 

100 HTAB TB: INPUT TP: I 
F TP > 6 GOTO 
100 
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íiO HTAB (9): VTAB (24): 
PRINT "ATENC 
AO IRA COMECAR" 

120 FOR I = í TO 1500: N 
EXT 

130 NORMAL : HOME : 6R 
140 COLOR = 3: PLOT 32, 
22: PLOT 31,1 
2 

150 COLOR = i: VLIN 10, 
30 AT 10 

160 HLIN 10,15 AT 10 
170 HLIN 17,28 AT 10 
180 VLIN 10,30 AT 30 
190 HLIN 10,30 AT 30 
200 VLIN 7,10 AT 28 
210 HLIN 28,32 AT 7 
220 VLIN 7,13 AT 32 
230 HLIN 30,32 AT 13 
240 IF TP = 5 THEN FOR 
I = 1 TO 40: PLOT INT ( R 
ND (1) * 27) + 7, INT ( RN 
D 

(1) * 27) + 7: NEXT 
250 VLIN 7,10 AT 17 
260 HLIN 7,17 AT 7 
270 VLIN 7,33 AT 7 
280 HLIN 7,33 AT 33 
290 VLIN 20,33 AT 33 
300 HLIN 30,33 AT 20 
310 IF TP = 6 THEN HLIN 
1,39 AT i: VLIN 1,39 AT 1 
: HLIN 1,39 AT 39: VLIN 1, 
3 


9 AT 

39 



320 

HLIN 

15,25 AT 15 


330 

HLIN 

15,25 AT 25 


340 

VLIN 

15,25 AT 20 


350 

HLIN 

13,17 AT 20 


360 

HLIN 

23,27 AT 20 


370 

PLOT 

20,26: PLOT 

20, 

27 




380 

PLOT 

17,28: PLOT 

17, 

29 




390 

PLOT 

23,28: PLOT 

23, 

29 




400 

IF TF 

» = 6 THEN COLO 

R = 

3: FOR I 


= 1 

TO 90: PLOT INT 

( R 


ND (1) » 

37) + 2, INT ( RND (1) * 
37) + 2: 

NEXT : COLOR = 1 


410 IF TP = 2 THEN PLOT 
8,18: PLOT 9 
,21 

420 IF TP = 3 OR TP = 4 
THEN PLOT 8, 

18: PLOT 9,21: PLOT 8,24: 
PLOT 9, 

27: PLOT 15,26: PLOT 25,2 
7 

430 MX = 29:MY = 29:P = 0 
: COLOR = 7: 

PLOT HX,HY 

440 X3 = 20:Y3 = 35:P = 0 

450 X2 = 15:Y2 = 20:P = 0 

460 HOME :X = 22:Y = 20 
470 COLOR = 15: MO = SC 
RN( X,Y): IF 

HO = 1 THEN TEXT : HOME 
: PRINT 

"PLACAR= ";P: PRINT "VOCE 
BATEU N 

A PAREDE": GOTO 1500 
480 IF MO = 3 THEN P = P 
+ 100: PRINT 
CHRI (7), CHRS (7) 


490 

PLOT X.Y 


500 

FOR I = 1 TO V: 

NEXT 

510 

ZZ = PEEK (39) 


520 

IF 11 = 18 THEN 

COL 

OR 

= 0: PLOT 


X,Y: 

X = X - 1 


530 

IF 11 = 24 THEN 

COL 

OR 

= 0: PLOT 


X,Y: 

X = X + 1 


540 

IF 11 = 36 THEN 

COL 

OR 

= 0: PLOT 


X,Y: 

Y = Y - 1 


550 

IF 11 = 30 THEN 

COL 

OR 

= 0: PLOT 


X, Y: 

:Y = Y + 1 


560 

WM = HM + i: IF WM = 

3 THEN WM = 1 


570 

ON WM GOSUB 600, 

,690 

580 

IF TP = 4 THEN 

ON W 

H GOSUB 690,6 


00 



590 

GOTO 470 


600 

COLOR = O: IF 

SCRN 


( MX,MY) = 1 THEN COLOR 


= 1 







610 

PLOT 

MX,MY: IF 

X > M 

X THEN MX 

= 

M 




X + 1 






630 

IF X 

( 

MX 

THEN 

MX 

= 

MX - 

1 






640 

IF Y 

> 

MY 

THEN 

MY 

= 

MY + 

1 






650 

IF Y 

( 

MY 

THEN 

MY 

= 

MY - 

1 






660 

IF Y 

= 

MY 

AND ) 

( = 

HX 


THEN TEXT : 

HOME : PRINT "0 MONSTRO 
TE PEGOU 

": PRINT : PRINT : PRINT 
"PLACAR= 

";P: GOTO 1500 
670 COLOR = 7: IF SCRN 
( MX,MY) = 1 THEN COLOR 
= 1 

680 P = P + l: PRINT "PLA 
CAR= ";P: PLOT HX.MY: RETU 
RN 

690 COLOR = 0: IF SCRN 
( X3,Y2) = 1 THEN COLOR 
= 1 

700 PLOT X2,Y2: IF X < X 
2 THEN X2 = X 
2 + 1 

720 IF X < X2 THEN X2 = 

X2 - 1 

730 IF Y > Y2 THEN Y2 = 

Y2 + 1 

740 IF Y < Y2 THEN Y2 = 

Y2 - 1 

750 IF Y = Y2 AND X = X2 
THEN TEXT : 

HOME : PRINT "0 MONSTRO 
TE PEGOU 

PRINT : PRINT "PLACAR= 
";P: GOTO Í500 
760 COLOR = 9: IF SCRN 
( X2,Y2) = 1 THEN COLOR 
= 1 

770 P = P + l: PRINT "PLA 
CAR= ";P: PLOT X2,Y2: RETU 
RN 

1500 FOR 1=1 TO 1000: 
NEXT 

1510 INPUT "OUTRO JOGO? 
*;SI: IF Sí = 

"S" THEN RUN 
1530 END 
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Na edição 20 dividimos a seção de 
Calculadoras, dedicando parte dela à 
calculadora Texas TI- 66 , recentemente 
lançada no mercado brasileiro. 

Neste número, dando continuidade 
a análise da mesma, introduzimos ins¬ 
truções de carga de memória e regis¬ 
tradores, e operações com a memória. 


Instrução Store — tecla Sto — 
Essa instrução equivale às instruções em 
Assembly Z-80, LOAD: memória e con¬ 
teúdo do registrador. Ela introduz o valor 
contido no registrador do visor na me¬ 
mória N (n ^64) sem alterar o conteú¬ 
do do registrador. Se for necessário re¬ 
cuperar o conteúdo da memória, decor¬ 
rido parte do processamento, a instru¬ 
ção Recall — rcl — fornecerá o con¬ 
teúdo da memória N no registrador do 
divisor. Ambas instruções servem para 
armazenamento de dados que deverão 
ser processados após uma certa rotina. 

Além da instrução Store, existe no 
sistema operacional da TI -66 uma se¬ 
gunda instrução de carga de dados. Ela 
equivale à introdução do Assembly Z-80 
— LDreg, reg — que preenche o regis¬ 
trador t (auxiliar) com o conteúdo do re¬ 
gistrador do visor, ficando este com o 
valor do registrador t. Note que ela di¬ 
fere da instrução LD registra, reg, pois 
ela altera o conteúdo do registrador do 
visor (troca-o com o valor de t). Esta 
instrução é representada pela tecla |x^t| . 

Dados que forem armazenados na 
memória podem ser atualizados com 



operações aritméticas, ( + ,— ,x, h-), o 
mesmo não acontecendo com dados 
armazenados no registrador auxiliar t. 

Para multiplicarmos o conteúdo da 
memória n por um certo número x, uti¬ 
lizamos a instrução Prd (2nd Prd). Usan¬ 
do a tecla INV, faremos a divisão. 


Formato 

X 


| 2 nd | 


[l [NVJ 


|prd| 


hh 


Soma-se uma certa quantia ao con¬ 
teúdo de u ma mem ória nn com a ins¬ 
trução SUM ISUMI que incrementa de X 
o conteúdo da memória nn. A subtração 
é acessa da atr avés do procedimento IN- 
VERSE IINVI que decrementa de x o 
conteúdo da memória nn. 

Formato: x[Í NVj [SUMI nn 

Para exemplificar o uso prático des¬ 
sas instruções, criaremos um programa 
para cálculo de fatorial, que faz parte 
dos algoritmos básicos. Sempre uma 
análise de programas terá como exem¬ 
plo um desses algoritmos básicos, for¬ 
mando, assim, um conjunto de utilitá¬ 
rios que auxiliam bastante na formação 
de programas mais complexos ou lon¬ 
gos. 


Fábio Augusto Polonio 


^ INICIO ^ 

/ FATORIAL j 
DE A / 


0 - 


B = A—1 



Sim 


FIM ^ 


A = C 



CODIFICANDO 

PASSO 

MNEMÓNICO 

TECLA 

000 

Store 

Sto 

001 

01 

1 

002 

Subtraia 

— 

003 

1 

1 

004 

igual 

= 

005 

Store 

Sto 

006 

02 

2 

007 

Multiplique 

Prd 

008 

01 

1 

009 

abre parêntesis 

( 

010 

02 

2 

011 

troque o valor 
com t 

x^t 

012 

fecha parêntesis 

) 

013 

Recall 

RCL 

014 

02 

2 

015 

Compare com t 

| 2 nd|x ^t 

016 

x > t vá para 

2 

017 

0002 


018 

Recall 

Rcl 

019 

01 

1 

020 

BARE 

R/S 

021 

Volte ao início 

RST 
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o TK-2000 






Caderno de Anotações 




. -i *r£Sí. «if co s* . 

“ a,ete „3íe?sí.»“ p *' a 

VSZ8&****' 


■r 



VARIÁVEIS UTILIZADAS 

Variável 

Função 

D$ 

CTRL-D (acesso a comando DOS) 

C$0 

matriz dos campos 

OP 

opção do menu 

C 

contador de campos 

LNG 

comprimento de cada campo 

V 

posição vertical de impressão 

L$ 

conteúdo do campo no coletor 

N$ 

nome do arquivo 

R$ 

resposta às perguntas (s/n) 

APR 

indicador da opção 3 

P 

página em questão 

1 

contador auxiliar 

llfeL 

comprimento de L$ no coletor 

A$ 

tecla pressionada 

A 

— 

código ascll de A$ 

-. — 




Cesar de Afonseca e 


▲ 


Silva Neto 
Wilson José Tucci; 

— 

▼ 


too 

REM 

CADERNO DE AN0T 

ACOES 


iíO 

REM 


120 Dl = 

CHRÍ (4) 

130 

DIM 

Cl(200) 


140 POKE 34 r 0: HOHE 
150 REh MENU 
160 INVERSE : FOR I = 7 
TO 32: VTAB í 
: HTAB I: PRINT " NEXT 
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: HTAB I: PRINT " NEXT 

190 FOR I = 5 TO í: 3TEP 
- i: OTAB I 

: HTAB 7: PRINT * NEXT 

200 NORMAL : VTAB 3: HTA 
B IO: PRINT " 

CADERNO DE ANOTACOES" 

2i0 VTAB 9: HTAB 10: PRI 
NT "1.CRIAR A 
RQUIV05" 

220 VTAB lí: HTAB 10: PR 
INT "2.C0NTIN 
UAR ARQUIVOS" 

230 VTAB 13: HTAB 10: PR 
INT "3. APRESE 
NTAR ARQUIVOS" 

240 VTAB 15: HTAB 10: FR 
INT "4.IHPRES 
SOR A" 

250 VTAB 17: HTAB 10: PR 
INT "5.SAIR D 
0 PROGRAMA" 

260 VTAB 20: HTAB 10: PR 
INT "OPCAO -> 

";0P 

270 ON OP GOTO 1000.2000 
.3000.4000.45 
00 

280 GOTO 260 

1000 REH CRIAR ARQUIVOS 

1010 REM 
1020 C = 1 
1030 HOME 

1040 VTAB í: HTAB ó: PRI 
NT "OPCAO -> 

" ; : INVERSE : PRINT "CRIA 
R ARSUIV 
OS": NORMAL 

1050 VTAB 3: HTAB 1: PRI 
NT "EDITE 0 C 
AHPO E PRESSIONE ÍRETURN) 
OU": PRINT "PRESSIONE PRE 
SSIONE <CTRL-G> PARA S 
AIR DESTA OPCAO" 

1060 LNG = 39 
1070 V = 8 

1080 VTAB 6: HTAB 1: PRI 
NT "CAMPO "?: 

'INVERSE : PRINT C: NORMA 
L 

1090 VTAB V: HTAB í: FOR 
I = 1 TO LNG 


: PRINT CHRÍ (95):; NEXT 

1100 VTAB V: HTAB í: GOS 
UB 5000 

1110 Lí = CHRÍ (34) + Lí 
+ CHRÍ (34) 

i 120 CKC) = Lí 
1130 C = C + í:V = V + i 
1140 IF V ) =23 THEN V 
= 8: POKE 34 
,6: HOME 
1150 GOTO 1080 
1500 REM GRAVAR TEXTO 
1510 HOME 

1515 VTAB 8: INPUT "QUER 
GRAVAR (S/N) 

?":Rí: IF Rí = "N" THEN 
140 

1520 VTAB 10: INPUT "NOM 
E DO ARQUIVO: 

ANOT/";Ni 

1530 Ní = "ANOT/" + Ní 
1540 PRINT DÍ:"OPEN";Ni 
1545 PRINT DS;"HRITE";N4 

1550 PRINT C - i 
1560 FOR I = i TO C - í: 
PRINT CÍ(I): 

NEXT 

1570 PRINT DVCLOSE" 
1580 VTAB 15: INVERSE : 
PRINT "TEXTO 

GRAVADO NORMAL : PR IN 
T "PRESS 

IONE UMA TECLA";: GET Rí 
1590 GOTO 140 
2000 REM CONTINUAR ARQÜ 
IVOS 

2010 HOME 
2020 APR = 0 

2030 VTAB l: HTAB 4: PRI 
NT "OPCAO ->" 

? : INVERSE : PRINT "CONTI 
NUAR ARQ 
UIVOS": NORMAL 
2040 PRINT 

2050 PRINT "NESTA OPCAO 
VOCE CONTINUA 
RA A ESCREVER": PRINT "A 
PARTIR D 

0 ULTIMO CAMPO CRIADO NO 
ARQ." 

2060 VTAB 8: INPUT "NOME 
DO ARQUIVOsA 


NOT/":Ní 

2070 Ní = "ANOT/" + Ní 
2080 ONERR GOTO 2500 
2090 PRINT Dí;"VERIFY";N 

í 

2100 PRINT Di;"OPEN";NS 

2110 PRINT DI;"READ";NÍ 

2120 INPUT C 

2130 FOR I = 1 TO C: INP 

UT Cííli: NEXT 

2140 PRINT DÍ:"Cl0SE" 

2150 IF APR THEN 3040 

2160 IF 1. HP THEN 4050 

2i70 C = C + 1 

2180 POKE 34.7: HOME 

2190 GOTO 1060: REM CRI 

AR NOVOS CAMP 

OS 

2500 REM NAO EXISTE 0 A 
RQUIVO 

2510 POKE 216.0 
2515 POKE 34.6 
2520 VTAB i5: PRINT CHR 
í (7); 

2525 INVERSE : HTAB 4: P 
RINT "ARQUIVO 
INEXISTENTE": NORMAL 
2530 VTAB 17: INPUT "TEN 
TAR OUTRA VEZ 
(S/N) ?";Rí: IF Rí = "N" 
THEN GOTO i40 
2540 -HOME : GOTO 2060 
3000 REM APRESENTAR ARQ 
UIVOS 
3010 HOME 

3020 VTAB í: HTAB 3: PRI 
NT "OPCAO -> 

";: INVERSE : PRINT "APRE 
SENTAR A 

RQUIVOS": NORMAL 
3030 APR = l: GOTO 2060 
3040 POKE 216.0 
3050 VTAB 3: HTAB 1: PRI 
NT "ARQ -> "; 

: INVERSE : PRINT MIDÍ ( 
NI.6): NORMAL 
3060 VTAB 5: HTAB 1: PRI 
NT "CAMPOS -> 

"•: INVERSE : PRINT C: N 
ORMAL 

3070 POKE 34,6 
3080 HOME 

3090 I = i:V = S:P = 1 
3100 VTAB V: HTAB í: PRI 
NT CKI) 
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3110 

VTAB 3: HTAB 30: PR 

INT " 

NP AG V 

INVERSE : PRINT INT (C 

/ 15) 

+ 

í: N0RHAL 

3120 

VTAB 5: HTAB 30: PR 

INT " 

PAG INVERSE : PRI 

NT P: 

NORMAL 

3130 

I = I + l:V = V + 1 

3140 

IF 0 ( 23 THEN 3100 

3150 

VTAB 23: HTAB i: IN 

VERSE 

: PRINT 

" < 

-/-) MUDAR PAGINA S 

<«> MENU 


NORMAL : GET RS 

3160 

IF RS = CHRS (21) 

AND P 

( INT 

(C / 

15) + 1 THEN P = P + 

i:V 

= 8 

: HOME : GOTO 3100 

3170 

IF RS = CHRS (8) A 

ND P 

) 1 THEN 

V = 8 

:l = I - 3Q:P = P - 

i: HOME 

: GOTO 3100 

3130 

IF RS = "M" THEN 14 

0 


3190 

GOTO 3150 

4000 

REM IMPRESSORA 

4010 

REM A SER IMPLEMEN 

TACA 


4015 

PRINT 

4020 

PRINT "ESTA ROTINA 

SER. A' 

IMPLEME 

NTAOA 

NO PR0-" 

4030 

PRINT "XIMO NUMERO 

- PRESSIONE ô 

UALSIJER TECLA" 

4040 

GET RS: GOTO 140 

4500 

HOME : END 

5000 

REM COLETOR DE LIN 

HAS 


5010 

LS = "":L = 0 

5020 

INVERSE : PRINT " " 

•: NORMAL : PRIN T CHRS (8 



5030 

\ 

GET AS:A = ASC (AS 

) 

5040 

IF A = 13 THEN. PRI 

NT SPC( 40 - 

L): RETURN 

5050 

IF A = 7 THEN Í5G0 

5060 

IF A = 8 AND L > 0 

THEN 

GOSUB 5 


140! 

GOTO 5030 

5070 

IF A < 32 OR L > = 

LNG 

THEN 512 

0 


5080 

L = L + 1 

5090 

LS = LS + AS 

5100 

PRINT AS: 

5110 

GOTO 5020 

5120 

PRINT CHRS (7); 

5130 

GOTO 5030 

5140 

REM BACKSPACE 

5150 

L = 1 - 1 

5160 

IF L = 0 THEN LS = 

GOTO 5180 

5170 

LS = LEFTS (LS.L) 

5180 

PRINT CHRS (21); C 

HRS (95); CHRS (8); CHRS ( 

8); 


5190 

RETURN 


TENTE ESTA 

0 POKE 7676.í: POKE 7677.OQ: 
POKE 767 

8.4: POKE 7679.0: POKE 7680.60 
: POKE 768Í.46: POKE 7682.0: PO 
KE 232.252: POKE 233.29: POKE í 
15,252: POKE 116.29 

1 H6R : VTAB 1: HTAB 13: RRIN 
T "-=(Gft 

LAXIAN)=-" 

2 A = 1:8 = 64:C = í: GOSUB ÍO 

3 X = A:A = B:B = X:C = - i: 
GOSUB ÍO 

4 M = "-=< TK200Ü II - COLOR 
COMPUTER 

}=-":8S = "MICROOIGITAL" 

5 HCOLOR = 3: HPLOT 17,174 T 
0 261,17 

4 TC 261,186 TO 17,174 

6 FOR N = i TO 34: VTAB 23: H 
TAB 4: SOUND 45,9: PRINT RIGHT 
4 (AS,N) ; : NEXT N 

7 FOR N = 1 TO 12: SOUND 45,9 
: VTAB 6 

+ N: HTA8 2: PRINT ( MIDS (BS 
,N, 

i)j: HTAB 38: VTAB 19 - N: PRI 
NT 


( MIDS (BS 

1 — 

X 

£ 

-r-4 

1 

CO 

8 

FOR N = 

1 TO 1500: 

NEXT : H 

GR 

: RUN 




1 





9 

REM ** 

AUTOR ** DIRCEU TEI 

XEIRA ** 




ÍO 

FOR N : 

= A 

TO B STEP C 

15 

SOUND 

(90 

+ N),i0 


20 

HCOLOR 

= 

2: ROT= 

N: SCALE 

= N 




30 

DRAW 1 

AT 

140,90 


40 

HCOLOR 

r 

3: ROT= 

16 + N: 

SCALE= N 




50 

DRAW 1 

AT 

140,90 


60 

HCOLOR 

= 

6: ROT= 

32 + N: 

SCALE= N 




70 

DRAW 1 

AT 

140,90 


80 

HCOLOR 

= 

í: ROT= 

48 + N: 

SCALE= N 




90 

DRAW 1 

AT 

140.90 


100 NEXT 

: RETURN 




Traga este anúncio e ganhe um brinde na compra de 
qualquer item 












Este programa facilita a montagem 
de uma seqüência sonora, seja ela uma 
música ou um efeito qualquer, em que o 
programador utiliza dentro de seus pro¬ 
gramas BASIC através da instrução 
Sound. 

È introduzida uma seqüência de va¬ 
lores A e B, onde A representa o tom da 
nota (0-240). Em qualquer momento é 
possível executar a seqüência sonora, 
verificando assim se os valores geraram 
o resultado desejado. 

O Editor sonoro permite o uso das 
três mais importantes funções para cor¬ 
reção. São elas: a alteração, a injeção, e 
a deletação dos valores de A e B, em 
qualquer ponto da seqüência. 

Funções executadas pelo Editor: 

Função 1: Apresenta o Menu na 

tela. 

Função 2: Entrada dos valores A e 
B em seqüência — permite a entrada 
dos valores A e B no editor. Para refor¬ 
mar a escolha da próxima função a ser 
executada digite "E" com o valor de A. 

Função 3: Apresentação de uma 


página — Aparecendo a mensagem 
"número da página", digite o número da 
página (de 1 a 4) que deverá ser apre¬ 
sentada na tela. Cada página apresenta 
30 linhas com valores de A e B. 

Função 4: Executa a seqüência so¬ 
nora — Executa na forma SOUND A, B 
a seqüência sonora introduzida no edi¬ 
tor. Com o decorrer da execução será 
apresentada a linha da seqüência que 
está sendo executada no momento. 

Função 5: Alterar os valores A e B 
da seqüência — aparecendo a mensa¬ 
gem "seqüência", digite a linha da se¬ 
qüência onde serão alterados os valores 
A e B. Deverá ser alterada uma linha da 
seqüência de cada vez. 

Função 6 e 7: Insere/deleta os valo¬ 
res de A e B na seqüência — aparecen¬ 
do a mensagem "inicial", entre com a 
linha da seqüência a partir de onde se 
deseja inserir/delatar os valores de A e 
B. 

Em seguida aparecerá a mensagem 
"Quant. Linhas", onde deverá ser digi¬ 
tada a quantidade de linhas com valores 
de A e B que serão inseridos/delatados 
a partir da linha da seqüência inicial. 


20 REM * PROGRAMA EDITO 
R SONORO 

30 DIM A(i20) r B(í20) 

40 NT = í:N = í 
60 GOSUB Í720 
Í00 UTAB 23: HTAB 8: INV 
ERSE : PRINT 

" NORMAL : GET F$: IF 
ASC <F$ 

) ( 49 OR ASC <FS> > 56 
THEN GOTO Í00 
Í40 OTAB 23: HTAB 8: PRI 
NT Fí 

Í80 F = UAL (Fi): ON F G 
OSUB í720 r í22 
0,260.340,400,580,960,216 
0 

200 G0T0 Í00 
260 REM * ROTINA DE UER 
IFICACA0 D0 C 
ONTEUDO DE UMA PAGINA 
280 HTAB íí: UTAB 23: IN 
PUT "NUMERO D 
A PAGINA:":NT 
290 IF NT < í 0R NT > 4 
THEN G0T0 28 
0 

300 GOSUB Í400 
320 RETURN 

340 REM * ROTINA DE SOM 

350 UTAB 23: HTAB lí: PR 
INT "SEGUENCI 
A: 

360 FOR S = í T0 N - i: 
UTAB 23: HTAB 
2í: PRINT S: SOUND A(S) r B 
(S): NEXT S 
380 RETURN 

400 REM * ROTINA DE ALT 
ERACA0 

420 HTAB íí: UTAB 23: PR 
INT " 

440 HTAB íi: UTAB 23: IN 
PUT "SEGUENCI 
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A:";NA 

460 IF NA ) N THEN GOTO 
420 

480 IF INT ((NA - i) / 
30) + i < ) 

NT THEN NT = INT ((NA - 
1) / 30) 

+ i: GOSUB Í400 
500 M = NA: GOSUB 2200 
560 RETURN 

580 REM * ROTINA DE INS 
ERCAO 

600 HTAB íí: UTAB 23: PR 
INT " 

// 

620 HTAB lí: UTA8 23: IN 

PUT "SEO.INIC 

:";NI: IF NI ) N OR NI < 

í THEN GOTO 600 

640 HTAB 25: UTAB 23: IN 

PUT "8UANT.LI 

NHAS:":8I: IF 81 + N > Í2 

0 THEN GOTO 640 

660 IF INT ((NI - i) / 

30) + í ( > 

NT THEN NT = INT ((NI - 
í) / 30) 

+ i: GOSUB 1400 
680 FOR K = í TO N - NI 
700 A(N + 81 - K) = A(N - 
K):B(N + 81 - K) = B(N - 
K) 

720 NEXT K 

740 FOR K = 0 TO 61 - 1 
760 A(NI + K) * 0:8(NI + 

K) = 0 

780 NEXT K 

800 GOSUB 1400 

840 FOR Kl = 0 TO 61 - i 

850 IF INT ((NI + Kl - 
1) / 30) + 1 ( ) NT THEN 
NT = INT ((NI + Kl - 1) / 

30) + i: GOSUB 1400 
860 H = NI + Kl: GOSUB 22 
00 

920 NEXT Kl 
930 N = N + 81 
940 RETURN 

960 REM * ROTINA DE DEL 


ETACAO 

980 HTAB ii: UTAB 23: PR 
INT " 

// 

1000 HTAB li: UTAB 23: I 

NPUT "SE6.INI 

C:";ND: IF ND ) N OR ND ( 

1 THEN 
GOTO 980 

1020 HTAB 25: UTAB 23: I 
NPUT "8UANT.L 
INHAS:";8D: IF 8D ) N - N 
D THEN GOTO 1020 
1040 IF INT ((ND - 1) / 
30) + í < > 

NT THEN NT = INT ((ND - 
í) / 30) 

+ i: GOSUB Í400 
1060 FOR KD = 0 TO N - N 
D - 8D - 1 

1080 A< ND + KD) = A(ND + 
8D + KD):B (ND 
+ KD) = B(ND + 8D + KD) 
iiOO NEXT KD 
1120 FOR K = 0 TO 8D - 1 

1140 AiN - 60 + K) = 0:B( 
N - 60 + K) = 

0 

1160 NEXT K 
1180 GOSUB 1400 
1190 N = N - 6D 
1200 RETURN 

1220 REM * ROTINA DE DE 

FINICAO DE UA 

LORES 

1240 HTAB 11: UTAB 23: p 
RINT " 

// 

1260 IF INT (<N - 1) / 
30) + 1 ( > 

NT THEN NT = INT ((N - 1 
) / 30) + i: GOSUB 1400 
1280 M = N: GOSUB 2200 
1340 N = N + 1 
1360 IF INT ((N - 1) / 
30) + 1 < ) 

NT THEN NT = INT ((N - 1 
) / 30) + l: GOSUB 1400 
1380 RETURN 

1390 REM * ROTINA DE FO 


RMACAO DE PAG 
INA 

1400 FOR K = 0 TO 2: HTA 
B 13 * K + i: 

UTAB i: PRINT "SE6 A 
B NEXT K: PRINT "P";N 
T 

1460 FOR K = 1 TO 10 
1480 FOR C = 0 TO 2 
1500 Ni = (NT - 1) * 30 + 
C * 10 + K:N 

S = " "+ STRI (N1):NS 

= RIGHTS (Nl,3) 

1520 A = A(N1): IF A = 0 
THEN AS = " 

": GOTO 1560 

1540 AS = " " + STRS ( 

A) :AS = RIGHTS (AS,3) 

1560 B = B(Ni)s IF B = 0 
THEN BS = " 

GOTO 1600 

1580 BS = " " + STRS ( 

B) :BS = RIGHTS (BS,3) 

1600 UTAB 2 * K + i: HTA 
B C * 13 + i: 

PRINT NS 

1620 UTAB 2 * K + i: HTA 
B C * 13 + 5: 

PRINT AS 

1640 UTAB 2 * K + i: HTA 
B C * 13 + 9: 

PRINT BS 

1660 NEXT C: NEXT K 
1680 UTAB 23: HTAB 1: PR 
INT "FUNCAO:" 

1700 RETURN 

1720 REM * ROTINA DE AP 
RESENTACAO DO 
PROGRAMA 
1740 HOME 

1760 UTAB í: HTAB li: PR 
INT "» EDITOR 
SONORO *" 

1780 UTAB 3: HTAB 1: PRI 
NT "USO DO CO 
MANDO SOUND NA FORMA SOUN 
D A,B" 

1800 UTAB 4: HTAB i: PRI 

NT "ONDE A-)N 

OTA E B-)TEMPO DE DURACAO 
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A MANIA DE SER 
INTELIGENTE 


Micro Computadores Li¬ 
nha TK — Temos TK-83, 
TK-85 e TK-2000. Também 
temos expansões de memó¬ 
ria, Joysticks e programas. 

Micro Computadores Li¬ 
nha Apple — Temos os 
preços mais baixos da cida¬ 
de. Trabalhamos com todos 
os tipos de expansão e peri¬ 
féricos. Grande quantidade 
de programas de jogos e 
aplicativos. Temos também 
Joystick analógico para 
Apple. 

Disquetes — Todas mar¬ 
cas de disquetes a preço de 
atacado. 

Literatura — Os melhores 
livros e revistas sobre a in¬ 
formática e video games. 


HlCftO HflfltA 

Al. Santos, 847 
Fone: 283-5376 
São Paulo 


VENHA NOS VISITAR E 
CONHEÇA A NOVA MANIA 
QUE ESTÁ CONTAGIANDO 
A CIDADE. 

_ J 


n 


2140 RETURN 

1820 VTAB 5: HTAB i: PRI 


2160 END 

NT "SEÔ-)C0RR 


2180 REH » ROTINA DE EN 

ESPONDE A SEÔUENCIA DE EX 


TRADA DOS VAL 

ECUCAO" 


ORES 

1840 VTAB 7: HTAB 3: PRI 


2200 NP = H - (NT - 1) * 

NT "PAGINA 1 


30:PH = INT 

- SEÔ 0E 1 A 30" 


((NP - 1) / 10):V = (NP - 

1860 VTAB 8: HTAB 3: PRI 


PH * 10 

NT "PAGINA 2 


) * 2 + l:HH = PH * 13 + 

- SEÔ DE 31 A 60" 


1:HA = P 

1880 VTAB 9: HTAB 3: PRI 


H * 13 + 5:HB = PH » 13 + 

NT "PAGINA 3 


9 

- SEÔ DE 61 A 90" 


2220 HTAB HA: VTAB V: PR 

1900 VTAB 10: HTAB 3: PR 


INT " ": HTAB HA: VTAB 

INT "PAGINA 4 


V: INPUT ""jA(H) 

- SEÔ DE 91 A 120" 


2221 G0SUB 2240 

1920 VTAB 12: HTAB 9: PR 


2222 IF A(H) > 240 0R A< 

INT "** HENU 


H) ( 1 THEN G0T0 2220 

DAS FUNC0ES **" 


2224 HTAB HB: VTAB V: PR 

1940 VTAB 14: HTAB 3: PR 


INT " ": HTAB HB: VTAB 

INT "1-REAPRE 


V: INPUT "";B(H) 

SENTA 0 HENU" 


2226 G0SUB 2240 

1960 VTAB 15: HTAB 3: PR 


2228 IF B(H) > 240 0R B( 

INT "2-ENTRAD 


H) < 1 THEN G0T0 2224 

A DOS VALORES A,B EH SEÔ" 

1980 VTAB 16: HTAB 3: PR 


2230 RETURN 

2240 FOR K = 0 T0 2 - PH 

INT "3-APRSEN 


2260 HS = RIGHTS (" " 

TACA0 DE UHA PAGINA" 


+ STRS (H + 

2000 VTAB 17: HTAB 3: PR 


K » 10),3) 

INT "4-EXECUT 


2270 IF A(H + K * 10) = 

A A SEÔUENCIA SONORA" 


0 THEN AS = " 

2020 VTAB 18: HTAB 3: PR 


": G0T0 2290 

INT "5-ALTERA 


2280 AS = RIGHTS <" " 

0S VALORES A,B DA SEÔ" 

2040 VTAB 19: HTAB 3: PR 


+ STRS (A(H + X » 10)),3) 

INT "6-INSERE 


2290 IF B(H + K * 10) = 

0S VALORES A,B NA SEÔ" 


0 THEN BS = " 

2060 VTAB 20: HTAB 3: PR 


": G0T0 2320 

INT "7-DELETA 


2300 BS = RIGHTS (" " 

0S VALORES A,B DA SEÔ" 

2080 VTAB 21: HTAB 3: PR 


+ STRS (B(H + K * 10)),3) 

INT "8-FIH DE 


2320 VTAB V: HTAB (PH + 

PR0GRAHA" 


X) * 13 + 1: PRINT HS 

2100 VTA8 23: HTAB 1: PR 


2340 VTAB V: HTAB (PH + 

INT "PARA C0N 


X) * 13 + 5: PRINT AS 

TINUAR PRESSIONE ÔUALÔUER 


2360 VTAB V: HTAB (PH + 

TECLA": 


X) * 13 + 9: PRINT BS 

GET PS 


2380 NEXT X 

2120 H0HE : G0SUB 1400 


2400 RETURN 














EXPLORANDO 
A ALTA 
RESOLUÇÃO 
NO TK-2000 
(PARTE II) 



Aroldo Possuelo de Carvalho 


Na Microhobby n? 18 foi apresen¬ 
tada a primeira parte deste artigo. Nesta 
edição forneço maiores detalhes a res¬ 
peito da utilização do "definidor de figu¬ 
ras em alta-resolução HGR", em pro¬ 
gramas BASIC. 

Este programa, acrescido de um 
maior número de comandos e de ma¬ 
nual de instruções e utilização de grava¬ 
dores cassetes estará sendo comercia¬ 
lizado, a partir de maio, pela Gibertron 
Eletrônica. O programa é compatível aos 
micros TK-2000, TK-2000 II com 48 K, 64 
K e 128 K e é um dos primeiros utilitá¬ 
rios em fita cassete, para esta linha de 
computadores pessoais, num ótimo ní¬ 
vel de software. 

Retornando ao objetivo do artigo, 
eu espero que vocês tenham digitado o 
programa da revista n? 18, pois a ele será 
acrescentado mais uma sub-rotina 
tornando-o mais flexível. 

0 nome da rotina será "cópia". Ve¬ 
ja o fluxograma. 




Note que no fluxograma foram 
acrescentados dois comandos novos: o 
comando M que retornará ao "menu" 
principal e C que copiará os caracteres 
de uma posição para outra da tela e ain¬ 
da fornecerá os códigos hexadecimais e 
decimais de cada linha do caractere. 

Suponha que você tenha definido 
um caractere na linha 0 e coluna 0 e gos¬ 
taria de usá-lo em outra posição. Após 
ter digitado a sub-rotina cópia e as 
outras alterações, tecle C e na tela apa¬ 
recerá "cópia" e a mensagem "linha de 
destino?"; então digite a linha para onde 
você quer copiar o caractere, por exem¬ 
plo 11, e então aparecerá o número da 
linha HGR e a mensagem "coluna de 
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destino?''. Tecle 19, então aparecerá 
mais duas perguntas: 

"linha de origem?" digite 0 
"coluna de origem?" digite 0 

Após o programa copiará o carac¬ 
tere que estará na linha 0, coluna 0 na 
linha 11, coluna 19, bem no meio da te¬ 
la, e também fornecerá os códigos hexa¬ 
decimal e decimal no canto direito infe¬ 
rior. 

Listagemda Sub-Rotina "Cópia" 


800 GOSUB 5400 

805 INVERSE s VTAB 3: HT 

AB Í7s PRINT 

"COPIA": N0RHAL : HTAB is 
VTAB 2i 

610 PRINT " 

// 

8Í5 VTAB 23: HTAB í: PRI 
NT " 

// 

820 ô = 0: 0NERR G0T0 93 
2 

825 VTAB 5: HTAB i: INPU 
T "LINHA 0E D 
ESTIN0 7(0-23):";L 
830 IF L > = 24 0R L ( 

0 THEN 932 

835 GOSUB 4000:LD = L: I 
NVERSE : PRINT L: NORMAL 
840 INPUT "COLUNA DE DES 
TINO 7(0-39): 

";CD: IF CD > = 40 0R CD 
< 0 THEN 932 
845 0NERR G0T0 938 
850 HTAB í: VTAB 9: INPU 
T "LINHA 0E 0 
RIGEH 7(0-23):"jL 
855 IF L > = 24IRL < 0 
THEN 938 

860 GOSUB 4000:L0 = L 
865 INVERSE : PRINT L: N 
0RMAL 

870 INPUT "COLUNA DE 0RI 
GEM 7(0-39):" 

;C0: IF C0 > = 40 0R C0 

< 0 THEN 

938 

875 FOR I = 0 T0 7:DS = 
LD + CD + 8:0 
G = L0 + C0 + 8 


880 P0KE DS, PEEK (0G) 

885 P0KE 8272 + 8, PEEK 
(0G) 

890 VTAB 17: HTAB 3: PRI 
NT "<- COPIA" 

: GOSUB 920 

895 8 = 8 + 1024: NEXT I: 
VTAB 21: HTAB 1: PRINT "C 
0PIA TERMINADA" 

900 S0UND 100,240: INVER 
SE : VTAB 21: 

HTAB i: PRINT "COPIA TER 
MINADA": 

NORMAL 

902 VTAB 23: HTAB i: INV 
ERSE : PRINT 
"TECLE I,M,P,C": NORMAL 
904 ONERR GOTO 5 
906 GET Aí 

908 IF Al = "I" THEN GO 
SUB 5400: GOTO 5000 
910 IF AS = "M" THEN 524 
5 

912 IF At = "P" THEN 85 

914 IF AS = "V" THEN 600 

916 IF AS = "C" THEN 800 

918 GOTO 906 
920 DV = PEEK (0G):8U = 
INT (DV / 16 
):R = DV - 8U * 16 
922 FOR N = 2 TO 1 STEP 
- l:R = R + 

48 

924 IF R > 57 THEN R = R 
+ 7 

926 HTAB 30: VTAB 13: PR 
INT "HEX - DE 
C" 

928 VTAB (I + 14): HTAB 
(N + 29): INVERSE : PRINT 
CHRS (R); 

930 NORMAL : HTAB 33: PR 
INT " = 

; HTAB 36: PRINT DV:R = 8 
U: NEXT 
N: RETURN 

932 VTAB 23: HTAB 1: INV 
ERSE : PRINT 
"REDIGITE": NORMAL 
934 SOUND 50,240: VTAB 2 


3: HTAB 1 
936 PRINT " 

": GOTO 8 
25 

938 VTAB 23: HTAB 1: INV 
ERSE : PRINT 
"REDIGITE": NORMAL 
940 SOUND 50,240: VTAB 2 
3: HTAB 1 
942 PRINT " 

": GOTO 8 
50 


Coloque no Programa 
mais estas linhas 


3 MP : HOME 
5 MA : HOME 

470 PRINT "TECLEI.M,P,V 
OU C" 

495 IF MS = "M" THEN 524 
5 

515 IF MS = "C" THEN 800 

5295 PRINT : PRINT " 

C - COPIA CA 
RACTERS" 

5367 IF MS = "C" THEN 80 
0 

6160 HOME : VTAB 11: HTA 
B i: INVERSE 

: PRINT "DIGITE RUN 5 PAR 
A RODAR 

0 PROGRAMA": NORMAL 


Após ter digitado mais estas 8 li¬ 
nhas no programa, você agora poderá 
definir seus caracteres, aelvá-los em fita 
K-7 e depois com o auxílio do comando 
cópia retire os códigos decimais, se vo¬ 
cê for trabalhar em BASIC, ou retire os 
códigos hexadecimais, se você for tra¬ 
balhar em linguagem de máquina. Pro¬ 
ceda como abaixo: 

“Carregue ou defina suas figuras; 
então de o comando "C“ — cópia — e 
copie seus caracteres dentro deles 
mesmo, isto se você não quer plotá-los 
em outro lugar." Ex: 


Cópia 

linha de destino? 0 
coluna de destino? 0 
linha de origem? 0 
coluna de origem? 0 
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0 exemplo citado cópia o caractere 
sobre ele mesmo. Este artifício é feito 
para que lhe seja fornecido os códigos 
hexadecimais ou decimais do caractere. 

Depois de você ter anotado em um 
papel os códigos do seu caractere, digite 
RESET e NEW, coloque os códigos num 
comando DATA, e faça um programa 
que leia a DATA e movimente a sua fi¬ 
gura na tela, através de POKE, DATA. 

Bem, com um pouco de imagina¬ 
ção creio que você pode agora fazer jo¬ 
gos animados em BASIC, ou em lingua¬ 
gem de máquina, com aqueles caracte¬ 
res especiais que você criar, também vo¬ 
cê poderá criar caracteres minúsculos 
do alfabeto e incluídos no TK-2000. 

0 programa acima deslocará a fi¬ 
gura na linha 11 da esquerda para a di¬ 
reita. 

No comando DATA da linha 300 te¬ 
mos oito valores 0 que vão apagar o ca¬ 
ractere através da sub-rotina 200, e na 
DATA da linha 310 temos oito valores de 
um caractere que serão dados por vo¬ 
cês, caracteres pré-definidos que serão 
plotados pela sub-rotina 300, as demais 
linhas preparam as variáveis do progra¬ 
ma com os códigos da linha de tela. 


0 REH ***************** 
***** 

í REH * AROLDO P. CARVA 
LOH « 

2 REH * HAIO DE Í985 

* 

3 REH ***************** 
***** 

5 GR 

15 DIH C(7) r B(7) 

17 FOR I = 0 TO 7: READ 
C(I): NEXT I 

18 FOR I = 0 TO 7: READ 
8(1): NEXT I 

20 Kl = 0 

30 GOSUB 600: GOTO 500 
100 6 = 0:K = 8616 + Kl: 
FOR N = 0 TO 

39: FOR I = 0 T0 7: POKE 
K + 8,C( 

I) 

105 Q = Q + 1024: NEXT I 

110 CALL 768 

115 8 = Q:K = 8616 + Kl: 

FOR L = 0 TO 

7: POKE K + 8,B(L) 

120 8 = 8 + 1024: NEXT L 
125 Kl = Kl + 1:8 = 0: NE 
XT N: RETURN 


200 Kl = 39:8 = 0:K = 861 
6 + Kl: FOR N 
= 39 T0 0 STEP - i: FOR 
I = 0 T0 7: POKE K + 8,C< 
I) 

205 8 = 8 + 1024: NEXT I 

210 CALL 768 

215 8 = 0:K = 8616 + Kl: 

FOR L = 0 T0 

7: POKE K + 8,B(L) 

220 8 = 6 + 1024: NEXT L 
225 Kl = Kl - 1:8 = 0: NE 
XT N: RETURN 

300 DATA 0,0,0,0,0,0,0, 

0 

305 DATA 8,20,34,34,85, 
85,34,65 

400 A = PEEK (39) 

405 IF A = 24 THEN G0SU 
6 100 

410 IF A = 18 THEN G0SU 
B 200 

415 IF A < > 24 0R A < 

) 18 THEN 40 

0 

500 SPEED= 100 

502 INVERSE : HTAB 9: VT 

AB i: PRINT " 

DEH0NSTRACA0 D0 D.F.A": N 
ORHAL 

505 HTAB 10: VTAB 4: PRI 
NT "PRESSIONE 
AS TECLAS" 

510 HTAB 12: VTAB 6: PRI 
NT "<- PARA E 
S8UERDA": HTAB 12: VTAB 8 
: PRINT 

"-> PARA DIREITA" 

515 SPEED= 255 
520 GOTO 400 
600 DIH S(33): FOR I = 0 
TO 33: READ 

Sd): POKE 768 + I,S(I): 
NEXT I 

610 DATA 169,0,133,255. 
169,255,133,2 
54,169,0,141,48,192.238,4 
8,192,20 


6,48,192,166,255,202,208, 

253,198, 

254,240,5,230,255,76,8,3, 

96 

615 RETURN 


O 


O 

o 

EXPLORANDO 

O 

o 

A ALTA 

0 

o 

RESOLUÇÃO 

o 

o 

NO TK 2000 

o 

o 

(Parte II) 

o 

o 


o 

o 

f 

o 

o 


0 

o 

FIM 

o 


PROGRAMAS 
APLICATIVOS PARA 
SEU MICRO 


• Orçamentos e custos de Cons- Valor 

truções Civis, para APPLE, em 
Diskete . 48 0RTN 

• Orçamentos e custos de Cons¬ 
truções Civis, pára SINCLAIR, 

TK 85, CP 200 e outros, graya- 

dos em fita Cassete. 8 ORTN 

• AGRIMENSOR - Cálculo da 
Planilha Analítica, para APPLE, 

em Diskete. 12 ORTN 

Para TK 2000, em fita Cassete 10 ORTN 
Para TK 85, CP 200 e outros .. 6 ORTN 

• Cálculo de lista de preços para 
fabricantes, para SINCLAIR, 

TK 85 e similares. 6 ORTN 

• Blocos "PRINT e PLOT" para 


seu lay out em seus programas 
profissionais com 100 páginas 
de formulários, para linha SIN¬ 
CLAIR, TK 85, TK 83, CP 200, 

RINGO, etc. 

1 BLOCO.0,5 ORTN 

3 BLOCOS. 1 ORTN 

— Pagamento com pedido (despacho imediato) ou 
por reembolso com 10% de acréscimo. 

Envie seu pedido para: 

Informática Dinâmica Ltda 


Rua Minas Gerais, 56 - CEP 98900 — Santa Rosa - RS 
Telefone: (055) 512-2819 



l CONPIÇÕES ESPECIAIS PARA REVENDEDORES^ 























HOBBYSHOP 


A MICROHOBBY man- 
tém uma seção de classifi¬ 
cados por cidades, onde 
sua empresa pode anun¬ 
ciar a preços acessíveis e, 
atingir nossos leitores de 
toda região. Este é o meio 
mais barato de sua empre¬ 
sa ter uma sustentação 
publicitária junto a um pú¬ 
blico leitor específico da 
área de Micros. 


Em anúncios padronizados 
em box de 8,5 x 3,5 cm, o 
leitor encontrará ofertas 
de serviços, produtos, 
software, hardware perifé¬ 
ricos e outros itens, lista¬ 
dos por cidades. 


Espaço adequado para: 
Escolas, 

Lojas de produtos 
para micros. 
Manutenção de 
micros, 

Livrarias. 


Para maiores informações 
consulte-nos 

Micromega P.M.D. Ltda. 

Av. Angélica, 2318 14? and. 
Caixa Postal 54096 
CEP: 01296 
Fone: (011)255-0366 
São Paulo — SP. 


QUEBRA-CABEÇA 

Um ... dois ... três ... muitos 


Renato da Silva Oliveira 


Na noite de ontem, eu, Tolen, Di- 
norá, Harold e Ramarujam conversáva¬ 
mos sobre as noções de infinito e conti¬ 
nuidade da matemática formal. Em cer¬ 
to instante, quando discutíamos as 
idéias de infinito potencial e infinito real, 
pusemo-nos a pensar sobre os maiores 
números já imaginados, ou "manipula¬ 
dos" pelo Homem. 

Tolen lembrou-nos que mesmo os 
camponeses da China têm certa noção 
da população de seu país, ou seja, eles 
conhecem o número 10 9 (um bilhão). 
Dinorá deu-nos um exemplo semelhan¬ 
te, lembrando que no Brasil o montante 
da dívida externa (cerca de cento e vinte 
bilhões de dólares) é conhecido até por 
algumas pessoas sem instrução. Rama- 
rujan lembrou-se da lenda da "Torre de 
Hanoi", do assombroso número de tro¬ 
cas (1,8 x 10 19 ) que são necessárias pa¬ 
ra mudar seus 64 discos para uma das 
outras torres. Esse número é conhecido 


por muitos indús que nunca aprenderam 
matemática na escola. 

Outros muitos números gigantes¬ 
cos foram lembrados e acabamos por or¬ 
dená-los da forma mostrada na tabela I. 

Dois números pensados pela Dino¬ 
rá, após alguns goles do suco de moran¬ 
gos silvestres que Ramarujan trouxe, não 
puderam ser facilmente ordenados. O 
primeiro é o número aproximado de pos¬ 
sibilidade de jogadas até o 50? lance da¬ 
do numa partida de xadrez: 40 50 lances. 
O outro é um número sugerido pela Di¬ 
norá apenas para o compararmos com o 
número de Eddington: 79! (ou seja, 79x 
78x77x . . . xl). 

Para ordená-los, eu fiz dois progra¬ 
mas, de apenas 11 linhas cada, e pude¬ 
mos então colocá-los . . . 

O quebra-cabeça deste mês consis¬ 
te em reproduzir dois programas seme¬ 
lhantes aos que Nabor nos relata em seu 
diário e colocar na ordem os números 
40 50 e79!. 


Tabela 1 

1?) População da China 

10 9 habitantes 

2?) Idade do Universo 

10 10 anos 

3?) Número de galáxias do Universo 

10 11 galáxias 

4?) Dívida Externa do Brasil 

1,2x10” dólares 

5?) Número de possíveis posições das peças 


no quadro de Loyd (Taquin) 

2x10 13 (~16!) posições 

6?) Movimentos dos discos da Torre de Hanoi 

2x10 19 (~2 64 —1) movimentos 

7?) Grãos presenteados pelo Rei da Índia a 


Sissa Ben Dahir, por ele ter inventado o 


Chaturanga 

2x10 19 (~2 64 — 1) grãos 

8?) Números de possíveis posições distintas 


do Cubo Rubik 

4x10 19 posições 

9?) Número de estrelas no Universo 

10 22 estrelas 

10?) Número de Eddington 

10 79 partículas 

11?) GUGOL 

IQioo 

12?) Número de possíveis posições das peças 


no tabuleiro de Xadrez 

IO 120 posições 

13?) GUGOLPLEX 

loioo 

IQGUGOL = 10 1U 

14?) Número de Skewes 

1010 1 ® 34 














Gráfico 
de Barras. 


Christiano Nasser 
Wilson José Tucci 


0 programa aqui apresentado per¬ 
mite a configuração, no vídeo, de três 
tipos de gráficos. 0 primeiro mostra até 
seis barras em terceira dimensão. 0 se¬ 
gundo e o terceiro possibilitam a apre¬ 
sentação de até 10 barras. O programa 
por si só é auto-explicativo, mas exis¬ 
tem algumas considerações a fazer: 

a) Como as barras são mostradas 
em tela de gráfico, as letras só apare¬ 
cerão se forem obtidas por "shapes"; 
por isso carregue do disco TOOL KIT os 
seguintes programas: 

A - "RBOOT" 

B - "HRCG" 

C - "BYTE.SET" 

(Não se assuste pois o programa fun¬ 
cionará mesmo sem esses utilitários!) 

b) Se você não tiver esses utilitá¬ 
rios, coloque a seguinte linha: "0 GOTO 
150": Neste caso, quando o programa 
perguntar pela ESCALA e pelo comen¬ 
tário, responda apenas (RETURN). 

c) O programa é muito simples e 
terá um resultado melhor se for usado 
um monitor colorido. 

Boa sorte e bons gráficos! 


i DIH AS(3í) r A(3í),B(3i 
) 

ÍO ADRS = 0 

20 PRINT CHR5 (4>;"BL0 
AD RBOOT" 

30 CALL 520 


40 ADRS = USR (0)."HRCG 


0 NUMERO DE 8 

// 


ARRAS (1-6)": GET NB1 

50 A = í 


240 IF NBÍ < "1" 0R NBI 

60 IF ADRS < =0. THEN 


> "6" THEN 23 

ADRS = ADRS + 


0 

65536 


250 HOME : PRINT "ENTRE 

70 CS = ADRS - 768 * A:H 


0S DADOS DA S 

IhENíCS 


EGUINTE FORMA": PRINT 

80 CH = INT (CS / 256): 


255 PRINT "XXXXX (MAXIM 

CL = CS - 256 * CH 


0-5) T (VALOR)" 

90 P0KE ADRS + 7 r CL: P0 


260 FOR N = 1 T0 VAL ( 

RE ADRS + 8.CH 


NBI) 

100 FOR I = i T0 A 
í 10 CM = "BYTE.SET" 


270 INPUT "";A!(N),A(N) 

280 IF N = 1 THEN T = A 

120 PRINT CHRÍ (4);"BL 


(N) 

0AD";CNÍ;",A": 


'290 IF A(N) ) T THEN T 

CS + (I - í) » 768 


= A(Ni 

130 NEXT I 


300 NEXT N 

Í40 CALL ADRS 


310 FT = i00 / T 

150 TEXT : HOME : INVER 


320 FOR N = 1 T0 VAL ( 

SE 


NBÍ) 

160 VTAB 10: PRINT SPC 


330 A(N) = INT ÍA(N) » 

( 12) "GRAFICO 


FT) 

DE BARRAS" SPC( 11): N0R 


340 NEXT N 

«AL : GET 


350 HOME : INPUT "NOME 

XI 


DA ESCALA (6-H 

170 HOME : PRINT "GRAFI 


AXIN0)":EÍ 

COS....FACA SU 


360 INPUT "PR0DLIT 0U C0 

A ESCOLHA" 


MENTARI0 (20-H 

i8Q PRINT "i-BARRAS EM 


AXIM0)":Cí: HOME 

3-D" 


370 X = 40:U = 0: HGR : 

Í9Q PRINT "2-BARRAS 1-1 


HC0L0R = 3:CA 

2" 


= 70 

200 PRINT "3-C0NTR0LE < 


380 HPL0T 40.1 T0 40.15 

ENTSADA-SAIDA) 


9 T0 279 r 159 

1-12": 6ET XI 


390 FOR N = 1 T0 5: HPL 

210 IF XI < "1" 0R XI > 


0T CA,150 T0 C 

"3" THEN i70 


A + 1Q.15Q:CA = CA + 40: 

220 0N VÁL (XI) G0T0 2 


NEXT N 

30.550.730 


4Q0 HPL0T 270,150 T0 27 

230 HOME : PRINT "ENTRE 


9.150 
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410 0 = 2:K = 2: VTAB 7: 


630 FOR N = 1 TO VAL ( 

PRINT T;"-": VTAB 3: PRI 


8B1):A(N) = INT (A(N) * 

NT El,Cl 


FT): NEXT N 

420 FOR N = 1 TO VAL ( 


640 HOME : INPUT "NOME 

NB1):Y = 150 - 


DA ESCALA (6-M 

A(N) 


AXIMO)":EI: 

430 W = W + 6 


645 INPUT "COMENTÁRIO ( 

440 FOR J = 158 TO Y ST 

EP - i? HPLOT 


20-MAXIM0)";Cl 

X.J TO X + 20.J: NEXT J 


650 HGR : HCOLOR = 3: 

450 FOR J = 150 TO Y - 


HPLOT 40.1 TO 

10 STEP - i: HPLOT X + 3 


40,159 TO 279,159 

0,J TO X + 30.J: NEXT J 


660 VTAB 3: PRINT E1.C1 

460 HPLOT X + 20,Y TO X 


: VTAB 7: PRINT T;"-" 

+ 30,Y - 10 


670 FOR N = 1 TO VAL ( 

470 HPLOT X,Y TO X + 10 


QB1):Y = 150 - 

,Y - 10 


A(N) 

480 HPLOT X + 10,Y - 10 


680 FOR 0 = 158 TO Y ST 

TO X + 30,Y - 


EP - 1 

10 


690 HPLOT X.O TO X + 14 

490 HPLOT X + 20,158 TO 


,0 

X + 30,150 


700 NEXT 0 

500 VTAB 21: HTAB W: PR 


7i0 VTAB 21: HTAB W: PR 

INT Aí(N):X = 


INT AKNÜW = 

X + 40:J = INT (K / 2) 

510 IF K = 2 * J THEN 


W + 3:X = X + 20: NEXT N 

HCOLOR = 6: GOTO 530 


720 GET AAi: GET AAI: G 

520 HCOLOR = 3 


OTO 150 

530 K = K + i: NEXT N 


730 HOME : PRINT "ENTRE 

540 GET AAi: GET AAl: G 


0 NUMERO DE B 

OTO 150 

550 HOME : PRINT "ENTRE 


ARRAS (1-10)"': INPUT «BI 

0 NUMERO DE R 


740 REM 

ARRAS Ü-ÍO)": INPUT 


750 HOME : PRINT "ENTRE 

«BS: 


OS DADOS NA F 

555 REM 


ORMA XX.000,000" 

560 PRINT : PRINT "ENTR 


760 FOR N = 1 TO VAL ( 

E OS DADOS NA 


06$) 

FÔRMA XX(2 CARACTERES).V 


780 INPUT A$(N),A(N),8( 

ALOR" 


N) 

570 FOR N = 1 TO VAL ( 


790 IF N = i THEN T = A 

BBS) 


(N): 

580 INPUT AKN).A(N) 


795 IF ACN) ) T THEN T 

590 IF N = 1 THEN T = A 


= A(N) 

(N) 


797 IF BíN) > T THEN T 

600 IF A(N) > T THEN T 


= BÍN) 

= A(N) 


800 NEXT N 

610 NEXT N 


810 FT = ÍOO / T:W = 6:X 

620 FT = 100 / T:W = 6:X 


= 43 

= 43 


820 FOR N = 1 TO VAL ( 


0B1):A(N) = INT (A(N) * 
FT):8(N) = INT (B(N) * F 
T): NEXT 

830 HOME : INPUT "ESCAL 
A (6-HAXIMO)"; 

El 

835 INPUT "COMENTÁRIO ( 
20-MAXIH0)";Cl 

840 HOME : HGR : HCOLOR 
= 3: HPLOT 4 

0,1 TO 40,159 TO 279,159 

850 VTAB 3: PRINT El,Cl 
: VTAB 7: PRINT T ? "-" 

860 FOR N = 1 TO UAL ( 
ÔBS) 

870 IF B(N) > A(N) THEN 
BW = l: GOTO 
980 

880 Y = 150 - A(N> 

890 IF BW = 1 THEN Z = 

X + 5: GOTO 91 
0 

900 Z = X 
905 REM 

910 FOR L = 158 TO Y ST 
EP - l: HPLOT 
Z,L TO X + 14.L: NEXT L 
9i5 IF BW = í THEN GÔT 
0 994 

920 Y = 150 - B(N) 

930 IF BW = 1 THEN J = 

X: GOTO 950 

940 J = X + 5 

950 FOR L = 158 TO Y ST 

EP - í: HCOLOR = 1 

955 J = X + 5 

960 HPLOT J,L TO X + 14 

,L 

970 NEXT L: GOTO 990 
980 GOTO 920 
990 HCOLOR = 3 
992 IF BW = 1 THEN 880 
994 BW = 0:X = X + 20: 0 
TA8 21: HTAB W 
: PRINT AI(N):U = W + 3 
996 NEXT N 

999 GET XI: GET XI: SOT 
0 150 
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As instruções de transferência 

Estudaremos agora o funcionamento de instruções de 
transferência, no total de seis, que além de serem de muito fá¬ 
cil compreensão, também são bastante úteis. 

Como sabemos, o Assembly 780 dispõe de alguns regis¬ 
tradores que são "Locais", onde se armazenam dados utili¬ 
zados na execução de operações aritméticas. Num programa 
em Assembly — Z80 são feitas muitas operações, o que nos 
leva a pensar a respeito de como isto é possível; se o número 
de registradores é limitado e se eles estão todos ocupados 
com valores usados nas operações aritméticas. Como faría¬ 
mos para utilizá-los novamente sem perder o conteúdo ante¬ 
rior? Para resolver este problema, dispomos das instruções de 
transferência. 

TAX Transfere o acumulador para o indexador X 


Código usado 

Formato 

Bytes usados 

AA 

TAX 

1 


Esta instrução transfere o conteúdo do acumulador para 
o registro X. 


Exemplo: 0800— 

A910 

LDA# 10 

0802- 

85 50 

STA $ 50 

0804- 

AA 

TAX 

0805- 

A9 20 

LDA 4* 20 

0807- 

85 51 

STA $ 51 

0809- 

86 50 

STX $ 50 


Observando a listagem acima, obtenha os conteúdos dos 
endereços $ 50 e $ 51. 

TXA — transfere o conteúdo do indexador para o acu¬ 
mulador. 


Código usado 

Formato 

Bytes usados 

8A 

TXA 

1 


A instrução faz exatamente o oposto da instrução TAX. 
Como você notou, no exemplo citado, na instrução TAX os 
conteúdos dos endereços $ 50 e $ 51 foram respectivamente 


10 e 20: 

Com a introdução da instrução TXA, podemos comple¬ 
mentar esse exemplo. 


Exemplo: 0800— 

A910 

LDA # 10 

0802- 

85 50 

STA $50 

0804- 

AA 

TAX *1 

0805- 

A9 20 

LDA # 20 

0807- 

85 51 

STA $ 51 

0809- 

A9 30 

LDA #30 

080B- 

85 70 

STA $ 70 

080D— 

8A 

TXA *2 

080E— 

4C 02 08 

JMP $ 0802 


*1—o valor do acumulador é transferido para o indexa¬ 
dor X. 

Operações artméticas são realizadas, envolvendo o uso 
do acumulador. 

*2 — 0 valor do indexador X é transferido para o acumu¬ 
lador. Uma das vantagens dessa instrução é que o valor de um 
determinado registro (registro A no caso) pode ser transferido 
antes de uma série de operações aritméticas (que envolvem 
sempre o acumulador) e, do final destas operações, pode ser 
recuperado com seu valor inicial intacto. 

TAY — Transfere o acumulador para o registro X. 


Código usado 

Formato 

Bytes usados 

A8 

TAY 

1 


A instrução TAY realiza a mesma operação da instrução 
TAX, tendo como única diferença a troca do registrador X por 
Y. 

TYA — Transfere o conteúdo do indexador para o acu¬ 
mulador. 


Código usado 

Formato 

Bytes usados 

98 

TYA 

1 


A instrução TYA faz exatamente o oposto da instrução: 
TAY. 
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TSX — Transfere o valor do indexador X para o "stack 
pointer". 


Código usado 

Formato 

Bytes usados 

BA 

TSX 

1 


TXS — transfere o valor do indexador X para o "Stack 
Pointer". 


Código usado 

Formato 

Bytes usados 

9A 

TXS 

1 


As duas novas instruções agora apresentadas, utilizam 
transferências de registro com "Stack Pointer" e vice-versa. 


Exemplo: 0800— 

A910 

LDA #10 

0802- 

A2 20 

LDX #20 

0804- 

85 30 

STA $30 

0806- 

8631 

STX $ 31 

0808- 

9A 

TXS 

0809- 

A915 

LDA #15 

080B- 

85 40 

STA $40 

080D- 

A2 25 

LDX# 25 

080F- 

86 41 

STX $ 41 

0811 — 

BA 

TSX 

0812- 

A9 40 

LDA#* 40 

0814- 

85 50 

STA $50 

0816- 

8641 

STX $ 41 

0818- 

8A 

TXA 

0819- 

20 DA FD 

JSR $ FDDA 

081C- 

60 

RTS 


Observando a listagem acima, tente descobrir o valor do 
registro indexado X. Feito isso, digite esse programa em seu 
computador e confirme se o valor por você imaginado confere 
com o resultado impresso no seu vídeo. 

Instruções de acréscimo em uma unidade 


INC — Incrementa a memória em uma unidade. 


Códigos usados 

Formato 

Bytes usados 

E6 

INCOPEN 

2 

F6 

INC OPER, X 

2 

EE 

INC OPER 

3 

FE 

INC OPER, X 

3 


INC OPER (página zero) 

Veremos agora um conjunto de quatro instruções que 
tem por finalidade efetuar um acréscimo em uma unidade nos 
conteúdos de memória de endereçamento absoluto, ou pá¬ 
gina zero. 

Exemplo: LDA # OS 
STA$ 10 
INC$ 10 
RTS 


Como pudemos notar no exemplo acima, primeiramente 
o acumulador é carregado com o valor 4^ 05, sendo poste¬ 
riormente transferido para o endereço $ 10 (página zero). 

Em seguida é introduzido uma instrução de acréscimo 
que faz com que o conteúdo localizado no endereço $ 10, seja 
o acréscimo de uma unidade e, finalmente, obtem-se o valor 
final, que é# 06. 

INC OPER, X (página zero) — indexado por X 

Nessa instrução, o acréscimo de uma unidade também é 
feito utilizando-se valores da página zero, porém com uma 
vantagem a mais: 

A indexação por X 


Exemplo: LDX #00 
LDA 50 
STA $ 30 


LDA#1000 
STA $40 
LDA 4 100 
STA $50 
INC $ 30,X 
LDX #10 
INC $ 30,X 
LDX # 20 
INC $ 30,X 

_RTS_ 

O programa acima mostra como uma instrução INC $ 
OPER, X pode ser utilizada para incrementar vários endereça¬ 
mentos de memória da página zero. 

Primeiro observamos o carregamento de três endereços 
com os respectivos valores: 

$30# 50 

$ 40 4bl000 

$50 #100 

A partir daí é utilizado uma mesma instrução para incre- 
mentar três endereços diferentes. 

Os endereços $ 30, $ 40 e $ 50 passam a ter como valo- 
res#51, #1001,#101. 

A instrução INC $ 30,X, como vemos, não está estrutu¬ 
rada da melhor forma possível, pois há muitas repetições da 
mesma instrução num só programa. 

Com o passar das aulas, obteremos outras instruções que 
tornarão esse tipo de programa melhor estruturado e mais 
compacto, sem as constantes repetições de uma mesma ins¬ 
truções. 

INC OPER (Absoluto) 

Seu funcionamento é idêntico ao INC OPER (página ze¬ 
ro) com a diferença de usar agora valores absolutos. 


Exemplo: LDA# 50 
STA $ 57 40 
INC $57 40 


O conteúdo do endereço é $ 5740, ou seja, o número 
50é acrescido de uma unidade (#51). 

INC OPER, X (absoluto) 

Seu funcionamento é idêntico ao INC OPER, X (página 
zero) com a diferença de utilizar valores absolutos. 


Exemplo: LDA #10 
STA $5000 
LDX #50 
LDA # 20 
STA $ 5050 
INC $ 5000, X 


Neste exemplo o conteúdo a ser incrementado de uma 
unidade pertence ao endereço $5050 (20 + 1 = #21). 

INX — Inscrementa em uma unidade o valor do indexa¬ 
dor X. 


Código usado 

Formato 

Bytes usados 

E8 

INX 

1 


Essa instrução é bastante simples de ser compreendida, 
pois age com o único sentido de incrementar em uma unidade 
o valor do indexador X. 


Exemplo: LDX# 30 
STX $ 50 
INX 

STX $60 

INX 

INX 

STX $ 70 


Neste exemplo, os endereços $ 50, $ 60, $ 70 recebem 
respectivamente os conteúdos # 30, # 31 e #33. 

INY — Incrementa em uma unidade o valor do indexador 
Y. 
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Código usado 

Formato 

Bytes usados 

C8 

INY 

1 


Esta instrução é similar à INX, com a diferença de haver a 
troca de indexador X por Y. 


Exemplo: LDY#1C 

STY $ 5050, Y 

O valor # 1C é carregado no endereço $ 50 6C 

Instrução de decréscimo em uma unidade 


DEC — Decrementa a memória em uma única unidade. 


Código usado 

Formato 

Bytes usados 

C6 

DEC OPER 

2 

D6 

DEC OPER,X 

2 

CE 

DEC OPER 

3 

DE 

DEC OPER,X 

3 


DEC OPER (página zero) 

Oposto à instrução INC OPER (página Zero), ou seja, é 
efetuado um decréscimo em uma unidade nos conteúdos de 
endereçamento da página zero. 

Exemplo: LDA# 10 
STA $ 50 
DEC $50 


O conteúdo do endereço $ 50 é uma unidade (#10-* fr 

0F). 

Para as instruçêos DEC OPER,X (página zero), DEC 
OPER (absoluto) e DEC OPER,X (absoluto), recomendamos 
uma revisão nas instruções INC OPER,X (página zero), INC 
OPER (absoluto) e INC OPER,X (absoluto), já que uma fun¬ 
ciona em oposição a outra, não havendo, portanto, neces¬ 
sidade de demonstrá-las. 


Instruções de ''Salto'' Condicionais 

Veremos agora oito instruções de salto condicionais 
(Branch). 

Essas instruções são similares às condições impostas 
numa determinada linha de programa que opere em BASIC. 

Exemplos: 50 IF A = 0THEM GOTO XX 

A função desta expressão tem por finalidade questionar o 
valor da variável A. Caso esta for igual ao valor zero, haverá 
um salto para a linha de programa de número XX. 

Essa seria uma instrução de salto condicional em BASIC. 

Para o Assembly-Z80, dispomos de instruções com fun¬ 
ções semelhantes a esta. 


Código usado 

Formato 

Bytes usados 

F0 

BEQ OPER 

2 

D0 

BNE OPER 

2 

90 

BCCOPER 

2 

B0 

BCS OPER 

2 

30 

BMIOPER 

2 

10 

BPLOPER 

2 

50 

BVCOPER 

2 

70 

BVS OPER 

2 


BEQ — Salta quando o resultado é zero. 

A instrução BEQ XX pode ser reduzida como: Salte caso 
o resultado da operação seja zero. Notamos então uma seme¬ 
lhança bem grande com a expressão em BASIC dada como 
exemplo. O valor XX seria, neste caso, o número de Bytes 
(em HXA) que determinaria o salto para a continuidade da 
execução do programa. Vamos a um exemplo. 

800 LDY #io l 

802 LDA $ 0100, Y } 


805 

STA $ 0400, Y 

808 

DEY 

809 

BEQ $ 03- 

80B 

JMP $ 802 

80E 

RTS «- 


Quando Y= 10 

LDA $ 100, Y— ($100 + 10 = $110) 
STA $ 400, Y = ($410) 

Y = OF 

LDA $ 100, Y = ($ 10F) 

STA $ 400, Y ($40F) 

Y = OE 


Y = 01 

LDA $ 100, Y = ($ 101) 


Quando o valor de Y (no caso) for igual a zero, o progra¬ 
ma prosseguirá com sua execução normal a partir da próxima 
instrução situada logo após BEQ $ 03. O valor 03 usado serve 
para indicar quantos Bytes de salto para frente a instrução 
usará. 

No caso 3 Bytes de salto para frente. 

DNE — Salta quando o resultado for diferente de zero. 


Vejamos este exemplo com atenção: 


Exemplo: 0800— 

A2 00 

LDX it 00 

0802- 

A0 00 

LDY *00 

0804- 

A9FF 

LDA 4 FF 

0806- 

85 00 

STA $00 

0808- 

AD 30 C0 

LDA $ C0 30 

080B- 

88 

DEY 

080C- 

D0 F6 

BNE $ 804 

080E— 

CA 

DEX 

080F — 

D0F1 

BNE $802 

0811- 

60 

RTS 


Este programa emite no alto-falante de seu TV um 
"BEEP" sonoro de determinada freqüência. 

A instrução responsável pelo "BEEP" situa-se no ende¬ 
reço $ C030 (instrução de 1/0). Para se chamar esta rotina, po¬ 
demos empregar qualquer mnemónico que receba um ende¬ 
reço de dois Bytes. Assim, poderia ser: STA $ C030, JSR $ 
C030, etc. 

Para provocar esse "Estalo" no alto-falante, são neces¬ 
sárias algumas instruções que giram em torno de uma só ins¬ 
trução: 

A rotina $ C030 — Usar uma só instrução de chamada 
ao endereço $ C030 não iria adiantar em nada, já que para o 
funcionamento desta rotina, condições especiais têm que ser 
geradas. 

Para entender melhor esta rotina vamos desmembrar o 
programa citado. Os registradores X e Y fornecem a duração 
de cada "LOOP" (número de saltos), LDX para BNE $ 802 e 
LDY para BNE $ 804. Como podemos notar, existem então 
dois LOOPS entrelaçados no programa. O Primeiro LOOP per¬ 
corre os endereços $ 802 a $ 800 e o segundo LOOP (do lado 
de fora) engloba os endereços $ 800 a $ 810. O endereço $ 805 
determina a freqüência do som que será gerado no alto-falante 
e este valor é carregado no endereço $00. Para haver a gera¬ 
ção de um "BEEP" é necessário que o endereço $ C030 seja 
acionado inúmeras vezes e quem determina isso é o indexador 
Y, que faz com que o endereço $ C030 seja acionado FF ve¬ 
zes (255 vezes), até que o valor Y chegue a zero. Quando isto 
ocorre, o programa sai do LOOP inicial (de dentro) e entra em 
um novo LOOP, o externo. Esse é determinado pelo valor X, 
que por sua vez fará o LOOP inicial se repetir por FF vezes, ou 
seja, 255 vezes. Resumindo, significa dizer que o LOOP inicial 
será acionado 255 vezes e por sua vez o endereço $ C030 será 
acionado 255 X 255vezes: (5025vezes!!!). 

Mostraremos agora uma tabela usada para as instruções 
branca que determina, em Hexadecimal, saltos tanto para 
frente como para trás. 

Exemplos: 
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800- D0 01 

BNE $803 - 

Pula 

802- 00 

BRK 

três Bytes 

803- 60 

RTS *- 

à frente 

800- 60 RTS ◄-1 

Pula 

801 00BRK 


três Bytes 

802 D0 FC BNE $ 800 -1 

atrás 



Tabela que determina saltos para frente 

saltos 

(dec) 

HEX 




1- 

01 

33-21 

65-41 

97-61 

2- 

02 

34-22 

66-42 

98-62 

3- 

03 

35-23 

67-43 

99-63 

4- 

04 

36-24 

68-44 

100-64 

5- 

05 

37-25 

69-45 

101-65 

6- 

06 

38-26 

70-46 

102-66 

7- 

07 

39-27 

71-47 

103-67 

8- 

08 

40-28 

72-48 

104-68 

9- 

09 

41-29 

73-49 

105-69 

10- 

0A 

42-2A 

74-4A 

106-6A 

11- 

0B 

43-2B 

75-4B 

107-6B 

12- 

OC 

44-2C 

76-4C 

108-6C 

13- 

0D 

45-2D 

77-4D 

109-6D 

14- 

0E 

46-2E 

78-4E 

110-6E 

15- 

0F 

47-2F 

79-4F 

111—©F 

16- 

10 

48-30 

80-50 

112-70 

17- 

11 

49-31 

81-51 

113-71 

18- 

12 

50-32 

82-52 

114-72 

19- 

13 

51-33 

83-53 

115-73 

20- 

14 

52-34 

84-54 

116-74 

21- 

15 

53-35 

85-55 

117-75 

22- 

16 

54-36 

86-56 

118-76 

23- 

17 

55-37 

87-57 

119-77 

24- 

18 

56-38 

88-58 

120-78 

25- 

19 

57-39 

89-59 

121-79 

26- 

IA 

58-3A 

90-5A 

122-7A 

27-1B 

59-3B 

91-5B 

123-7B 


28-1C 

60-3C 

92-5C 

124-7B 


29-1D 

61-3D 

93-5D 

125-7D 


30-1E 

62-3E 

94-5E 

126-7E 


31- 1F 

32- 20 

63- 3F 

64- 40 

95- 5F 

96- 60 

127-7F 


Vamos mostrar os saltos em Hexa, já que os números em 
decimal são os mesmos. 


Tabela que determina saltos para trás 

FF 

E2 

CS 

A8 

8B 

FE 

El 

Cl 

A7 

8A 

FD 

E0 

C3 

A6 

89 

FC 

DF 

C2 

A5 

88 

FB 

DE 

Cl 

A4 

87 

FA 

DD 

CO 

A3 

86 

F9 

DC 

BF 

A2 

85 

F8 

DB 

BE 

Al 

84 

F7 

DA 

BD 

A0 

83 

F6 

D9 

BC 

9F 

82 

F5 

D8 

BB 

9E 

81 

F4 

D7 

BA 

9D 

80 

F3 

D6 

B9 

9C 


F2 

D5 

B8 

9B 


F1 

D4 

B7 

9A 


F0 

H3 

B6 

99 


EF 

D2 

DÜ 

98 


EE 

Dl 

B4 

97 


ED 

D0 

B3 

96 


EC 

CF 

B2 

95 


EB 

CE 

BI 

94 


EA 

CD 

B0 

93 


E9 

CC 

AF 

92 

1 

E8 

CB 

AE 

91 

▼ 


E7 

CA 

AD 

90 

E6 

C9 

AC 

8F 

E5 

C8 

AB 

8E 

E4 

C7 

AA 

8D 

E3 

C6 

A9 

8C 


BCC — Salta quando CARRY está em zero. 

Esta instrução "Branca" é usada para se efetuar saltos 
condicionais evoluindo o Bit de CARRY. 


Exemplo: 800 = LDXttFO 

802 = INX««-1 

803 = BCC Et 803- 1 
805 = RTS 


Neste caso o valor de X é inicialmente % F0 e vai aumen¬ 
tando progressivamente até que atinge seu limite, ou seja, 
# FF. 

Ao ser incrementado mais uma vez, o valor de X passa a 
acusar 00; porém, esse valor é falso, pois houve um estouro 
do limite do Byte. Esse estouro é indicado no FLD6 de Carry. 

O valor real de X é ^ 100 e como o Bit de Carry foi afe¬ 
tado (SCtado no caso), a instrução BCC $ 803 não promoverá 
um novo salto. 

BCS - Salta quando CARRY está em funcionamento 
oposto à instrução BCC. 

BMI — Salta quando o resultado é menor que zero. 


Exemplo: 800- LDY# 15 

ono nvr\y ^_ 

OV7Z. L/C I ^ 

803- BMI $808 
805— JMP $ 802 — 
808— RTS 



Esta instrução é executada de acordo com a flag de sinal 
(S). Caso for igual a um o salto é efetuado. 

BPL — Salta quando o resultado é maior que zero (posi¬ 
tivo). 


Exemplo: 800- LDX # 10 
802- DEX 

Salta até o valor X 

803- BPL S 

se igualar a zero 

805- RTS 


BVC — Salta quando o overflow está em zero. 
BVS — Salta quando o overflow esté em um 


Programa surpresa 

0800 - 20 32 F8 

JSR $ F832 

0803- AD 54 C0 

LDA $ C054 

0806- AD 50 C0 

LDA $ C050 

0809- A9 FF 

LDA# FF 

080B— 85 30 

STA $ 30 

080D— A9 22 

LDA #22 

080F- 852C 

STA $ 26 

0811- 85 2D 

STA $ 2D 

0813- A0 05 

LDY # 05 

0815- A9 05 

LDA # 05 

0817- 2019F8 

JSQ $ F819 

081 A— A0 15 

LDY # 05 

081C- A922 

LDA #22 

081E- 2019F8 

JSR $ F819 

0821- A0 25 

LDY # 05 

0823- A925 

LDA #05 

0825- 2028 F8 

JSR $ F828 

0828- A0 22 

LDY #22 

082A- A9 05 

LDA# 25 

082C-2028F8 

JSR $ F828 

082F-60 

RTS 


Digite o programa, rode-o e depois de visualizar a tela, 
tente descobrir, linha por linha, o que o programa faz para 
chegar a esse resultado. É um bom exercício, pois o programa 
engloba aulas passadas. 

Você pode experimentalmente alterar alguns endereços. 
Vamos indicá-los: $ 080A, $ 0814, $ 0816, $ 0822, $ 0824. 
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LIVROS 


Introdução aos 

Micro computadores 


Autor: Paulo Bianchi França 
Editora: Livros Técnicos e 
Científicos 



Introdução . . . 


A infiltraçaõ do computador 
em todas as áreas profissionais e 
educacionais e a adesão cada vez 
maior de jovens no campo da in¬ 
formática atingiu até a sensibili¬ 
dade de “experts” como Paulo 
Bianchi. Profissional de informá¬ 
tica desde 1967 e Ph. D. em en¬ 
genharia elétrica e ciências da 
computação, Paulo Bianchi, que 
teve até agora sua experiência de 
ensino voltada apenas aos cursos 
de nível superior, acaba de lançar 
um livro voltado ao público leigo 
e alunos de 2? grau. O trabalho 
destina-se a introduzir os princi¬ 
piantes ao microcomputador, 
usando uma linguagem simples e 
acessivel. 

A obra é dividida em seis ca¬ 
pítulos, distribuídos em 127 pá¬ 
ginas, e coloca de forma organi¬ 
zada, todas as informações bási¬ 
cas para aqueles que pretendem 
se iniciar em computação, ou 
mesmo aqueles que não preten¬ 
dem fazer um curso especializa¬ 
do, mas apenas se integrar à lin¬ 
guagem usada em informática. 
Ao final de cada capítulo, o autor 
coloca uma série de exercícios e 
um vocabulário com os termos 
técnicos usados no texto. 

Para melhor entendimento 
dos capítulos, e maior descontra¬ 
ção na leitura, Paulo Bianchi in¬ 
seriu vários exemplos e estórias 
nos textos. “O conhecimento dos 
princípios básicos da informáti¬ 
ca”, diz ele, ‘‘deixou de ser um 
privilégio dos técnicos e passou a 
ser uma necessidade de cada 
um”. A popularidade dos compu¬ 
tadores é hoje um fato consuma¬ 
do”. Ele completa e afirma que a 
informática, há algum tempo, já 
faz parte da nossa vida, só que 
agora ela está mais acessível. 

Apesar do título, o livro se 
estende também à explicação dos 
grandes equipamentos (por esta 
razão ‘Micro’ está entre parênte¬ 


sis). No primeiro capítulo, ele 
apresenta os vários tipos de mi¬ 
cros existentes e explica como eles 
funconam, para que servem e 
quais são os complementos neces¬ 
sários para o desenvolvimento de 
um bom trabalho. Em seguida, 
ele explica o que é necessário pa¬ 
ra operar um computador, quais 
os periféricos usados e suas ca¬ 
racterísticas e como funciona o 
seu mecanismo interno. Neste ca¬ 
pítulo, a manutenção do apare¬ 
lho também mereceu atenção. 

Após explicar o que é o hard¬ 
ware, para que serve e como fun¬ 
ciona, Paulo Bianchi dedica um 
capítulo especialmente ao softwa¬ 
re. Ele apresenta os programas, 
não da forma pura e simples, mas 
explica qual sua função, qual sua 
utilidade para se processar da¬ 
dos, como se elabora um progra¬ 
ma. Neste capítulo estão'inclusos 
as linguagens usadas em progra¬ 
mação (BASIC, Cobol, Fortran, 
etc.). 

Para formar um embasa¬ 
mento teórico, o capítulo quatro 
faz uma retrospectiva e mostra os 
equipamentos mais primitivos 
que antecederam as modernas 
máquinas de computação. Além 
dos equipamentos, Paulo Bianchi 
faz referências também à evolu¬ 
ção do software. Vale lembrar, 
que não há muito tempo atrás o 
operador tinha que executar ta¬ 


refas que hoje são desenvolvidas 
pelo computador, ocupando mui¬ 
to menos tempo. 

No capítulo cinco o autor 
volta a tratar do software, mas 
agora ele se restringe à organiza¬ 
ção e processamento da informa¬ 
ção. É natural que o computador 
só poderá usar a informação se 
ela estiver bem organizada, mas 
isto não é tarefa muito fácil e re¬ 
quer algumas técnicas que Bian¬ 
chi não poupa esforços para ex¬ 
plicar. 

Mas para aqueles que pen¬ 
sam que Introdução aos (Micro) 
computadores está apenas volta¬ 
do à didática, aqui vai mais uma 
informação: o capítulo seis está 
reservado para fornecer “dicas” 
valiosas sobre campo profissional 
de informática, aos recém egres¬ 
sos do curso de segundo grau, 
além de uma visão geral da vali¬ 
dade dos diversos tipos de cursos- 
técnicos ou superiores — e suas 
utilidades, dependendo do inte¬ 
resse de cada aluno. 

O livro apresenta ainda ilus¬ 
trações, fotos e figuras que facili¬ 
tam o entendimento dos textos. 
Apesar de ser uma obra dirigida a 
alunos do segundo grau, ê um 
trabalho muito útil ao público em 
geral que pretende se iniciar em 
informática, ou ter alguns conhe¬ 
cimentos básicos sobre computa¬ 
dor. S.A.M. 
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Basic Aplicado 
em enfoque profissional 

Autor: Rubens da Silva Prates Jr. 
Editora: Livros Técnicos e Científicos 



BASIC... 

Silva Prates não brinca em servi¬ 
ço. Basic Aplicado é um livro sério, com 
um enfoque profissional, que nem de 
longe atinge os hobbistas. A obra desti¬ 
na-se às pessoas interessadas em desen¬ 
volver sistemas em microcomputadores, 
usando a linguagem BASIC. 0 livro é in¬ 
dispensável tanto em cursos profissiona¬ 
lizantes como em cursos de graduação 
na área de informática. 

A obra está dividida em 15 capítu¬ 
los, um apêndice, testes, exercícios, um 
glossário reunindo as palavras técnicas 
usadas no livro e bibliografia, tudo reu¬ 
nido em 232 páginas. 0 trabalho inicia- 
se tratando sobre os conceitos funda¬ 
mentais do BASIC, aprofundando-se 
em suas definições — uso da tabulação, 
sub-rotinas, etc. Passa pelas matrizes, 


Evoluindo no Basic-TK 



EVOLUINDO. . . 


'"Evoluindo no Basic-TK" não é um 
livro destinado aos ensinamentos da lin¬ 
guagem Basic, como o nome pode su¬ 
gerir. Nas palavras do autor, "a finali¬ 
dade do livro é compartilhar com os lei¬ 
tores, as experiências e descobertas pro¬ 
porcionadas pelo computador". E a pro¬ 
va de que Bernardo Stein conseguiu 
atingir seu objetivo é esta obra, com 136 
páginas e dividida em sete capítulos, 
que pretende explorar as principais po¬ 
tencialidades do computador pessoal. 

Os programas apresentados dedi¬ 
cam-se, primeiramente, aos jogos, mas 
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não deixam de apresentar seu lado sé¬ 
rio também. 0 primeiro capítulo trás um 
programa dedicado às rotinas de ani¬ 
mação no computador, utilizando a fun¬ 
ção lnkey$. No capítulo seguinte, o au¬ 
tor testa a capacidade da memória do 
usuário com o "Jogo da Memória". E 
para se estender um pouco mais, o pro¬ 
grama 'O Professor' auxilia o usuário a 
memorizar pares de informações, sendo 
um programa muito útil para estu¬ 
dantes. 

Para provar que nem tudo no livro é 
jogo, o capítulo três ensina o leitor a ela¬ 
borar programas com rotinas em lingua¬ 
gem de máquina, mesmo se este não 
possuir pleno conhecimento desta lin¬ 
guagem. 0 capítulo seguinte é destina¬ 
do aos possuidores de vídeo-cassete ou 
filmadora Super-8. Obviamente o autor 
não garante que o leitor conseguirá pro¬ 
duzir vinhetas como as da rede Globo, 
mas através do programa '0 Apresenta¬ 
dor', o usuário poderá fazer os títulos, 
as apresentações e os finais para suas 
realizações em vídeo ou filme. 

A impressora também tem seu lu¬ 
gar no livro de Stein. No capítulo cinco, 
o autor apresenta duas versões do mes¬ 
mo programa (0 Impressor e o Impres¬ 
sor II), para as impressoras ZX Printer e 
Timex 2040, que permite criar rótulos 
para fitas cassete. E para organizar, não 
só as fitas cassete, mas qualquer outro 
tipo de arquivo, o capítulo seis apresen¬ 


laços, tabelas internas e manipulação de 
strings. No capítulo oito, dedicado às 
funções matemáticas e de convensão, 
encontram-se as funções aritméticas, 
trigonométricas e geração de números 
aleatórios. Os capítulos seguintes tra¬ 
tam da manipulação de arquivos se- 
qüenciais e randômicos, encadeamento 
de programas, acesso à memória, trata¬ 
mento de erros e compilação. 

Em cada capítulo encontram-se ain¬ 
da "dicas" que contribuem para o aper¬ 
feiçoamento na prática de programação, 
além de exercícios para fixação do 
aprendizado. S.A.M. 


Outros 

Lançamentos 

Programas Administrativos 
em BASIC Sinclair 

Autor: Lourival Karsten 
Editora Campos/Nobel 


Imprimindo maravilhas 
com a Grafix 

Autor: Victor Mirshawka 
Editora Nobel 


Dissecando Jogos 
(em BASIC comentado) 

Autor: Carlos Eduardo Rocha Salvato 
Editora Urania 


ta o programa '0 Arquivista'. Este pro¬ 
grama armazena os dados do arquivo 
em fita, em 'high-speed', explorando as 
funções especiais do TK-85. 

Para finalizar o livro de uma forma 
mais descontraída, Bernardo Stein dedi¬ 
ca o último capítulo de sua obra aos jo¬ 
gos. Ludo, Vinte e Um, Caça Níqueis, 
Skat e o Poeta, são os jogos apresenta¬ 
dos. Este último e um programa muito 
interessante, que gera poesias a partir 
de 17 vocábulos escolhidos pelo usuá¬ 
rio, e introduzidos no computador. 

Como todos sabem, o computador 
é um veículo de constantes estudos. 
Portanto, o livro de Bernardo Stein não 
é uma coletânea de programas, mas um 
canal para novas descobertas e novos 
trabalhos. S.A.M. 


























pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business Computer 


De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc:a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


Apresentamos o 

TK 20001. 

Ele roda o programa 
mais famoso 
do mundo. 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 

Preço (128 K): 

Cr$ 2.949.850 

/MICRO DIGITAL 

computadores pessoais 




* 2. eito a alteração sem prévio aviso. 


©Marca registrada da Visicorp. Filiada à ABIC0MP ©Marca reyistrada da Apple Computer. 
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A Microdigita 
lança no Brasi 
o micro pessoal 
demaiorsucesso 
no mundo. 

A partir de agora a história dos 
micros pessoais vai ser contada em duas 
partes: antes e depois do TK 90X. 

0 TK 90X é, simplesmente, o único 
micro pessoal lançado no Brasil que 
merece a classificação de "software 
machine": um caso raro de micro que 
pela sua facilidade de uso, grandes 
recursos e preço acessível recebeu a 



atenção dos criadores de programas e 
periféricos em todo o mundo. 

Para você ter uma idéia, existem 
mais de 2 mil programas, 70 livros, 30 
periféricos e inúmeras 
revistas de usuários disponíveis 
para ele internacionalmente. 


E aqui o TK 90X já sai com mais de 
100 programas, enquanto outros estão 
em fase final de desenvolvimento para 
lhe dar mais opções para trabalhar, 
aprender ou se divertir que com qualquer 
outro micro. 

0 TK 90X tem duas versões de 
memória (de 16 ou 48 K), imagem de 
alta resolução gráfica com 8 cores, 
carregamento rápido de programas 
(controlável pelo próprio monitor), som 
pela TV, letras maiúsculas e minúsculas 
e ainda uma exclusividade: acentuação 
em português. 

Faça o seu programa: peça já uma 
demonstração do novo TK 90X. 

Al ICRODIGIML 
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